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1.0 ABSTRACT 


Although extensive progress has been made in computational fluid 
mechanics, reliable flight vehicle designs and modifications still cannot be made 
without recourse to extensive wind tunnel testing. Future progress in the 
computation of hypersonic flow fields is restricted by the need for a reliable 
mean flow and turbulence modeling data base which could be used to aid in the 
development of improved empirical models for use in numerical codes. 
Currently, there are few compressible flow measurements which could be used 
for this purpose. In this report, the results of experiments designed to assess the 
potential for laser velocimeter measurements of mean flow and turbulent 
fluctuations in hypersonic flow fields are presented. Details of a new laser 
velocimeter system which was designed and built for this test program are 
described. 

2.0 INTRODUCTION 


Current hypersonic flow field instrumentation is insufficient to meet 
present and future ground test requirements. Measurements are required to 
establish the basic physical mechanisms and turbulence models required for 
reliable prediction of transitional and turbulent hypersonic flow fields. 

In recent years, experimental methods in lower speed regimes have also 
made significant advances due primarily to the availability of high power lasers. 
Their introduction has enabled the field of laser velocimetry to expand from low 
speed, small scale, closely controlled laboratory applications to the measurement 
of compressible flows in large scale wind tunnels (Ref. 1). The advent of the 
laser velocimeter allows us to measure velocity fluctuations directly in a linear, 
non-intrusive manner. Of particular value is the capability it offers to measure 
some of the compressible turbulent shear stresses, since this is an impractical task 
with hot wires (Ref. 2). 

However, before laser velocimetry can be extended to hypersonic flow, 



some basic questions must be addressed. The primary question is that of particle 
size requirement for reliable response combined with adequate Mie scattering. 
Practical assessments must therefore be made of flow seeding capability and the 
potential for laser velocimetry in hypersonic flows. 

3.0 EXPERIMENTAL DETAILS 

The laser velocimeter investigation was conducted in the NASA Ames 3.5 
Ft. Hypersonic Wind Tunnel. In this facility, high-pressure air flows through a 
pebble bed heater and then through an open jet test section to lower pressure 
spheres. The tests were conducted at a nominal freestream Mach number of 7 
and a freestream Reynolds number of 3 million per toot. The test model used in 
this study was a 10° cone-ogive-cylinder which was 79 inches long and 8 inches in 
diameter (Ref. 3). Measurements were made in the local freestream above the 
model and in the zero pressure gradient boundary layer flow on the cylindrical 
portion of the model. Measurements were also made across an oblique shock 
wave generated by the introduction of a 20 deg. flare installed 55 inches from the 
nose. A seed particle generator and injectors were designed and installed in the 
facility. The particles were injected through a thermocouple port into the plenum 
just upstream of the throat. A schematic of the seeding system and seeder 
operational procedures are given in Figure 1 and Table 1 respectively. Seed 
particles and seed mixtures detailed in Ref. 4 were used during the tests. The two 
component, forward scatter, fringe mode laser velocimeter system, which was 
used for the flow field measurements, utilized the 4880 and 5145 Angstrom lines 
of an argon-ion laser. Details of the optical system are presented in Table 2. 
Details of the traverse control and data acquisition systems are described in 
Ref. 5. 
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4.0 TEST RESULTS 


Initially, measurements were confined to the local freestream until seeder 
mass flow rates and procedures were optimized for data rate and signal to noise 
ratio. Figure 2 shows examples of signal quality in wind off and wind on 
situations. Clearly, signal quality, visibility and fringe crossings were adequate in 
the freestream hypersonic flow. On occasion, data rates of more than 100,000 
per second were measured. Figure 3 shows the mean boundary layer flow results 
along with the mean profile measurements which were obtained from previous 
conventional probe measurements (Ref. 6). Although, as expected, the signal to 
noise ratio decreased close to the wall, the good agreement between the two 
measurement methods confirms the seed particle response for mean velocity 
measurements in the zero pressure gradient boundary layer. 

The results of a more stringent test of the particle response and the laser 
velocimeter measurements are shown in Figure 4 where the zero pressure 
gradient axial and vertical turbulence measurements are presented. These data 
show similarities in levels and trends to previous incompressible test results. The 
streamwise turbulence component has a pronounced maximum close to the wall 
whereas the vertical component, which is approximately half the axial value, is 
relatively flat in the wall region. These similarities are not altogether surprising 
since previous hot wire turbulence convection velocity measurements (Ref. 3) 
showed that the relative velocity between the disturbances and the local mean 
flow was always subsonic which allows the turbulent bursts to propagate as they 
would in an incompressible flow. 

The axial component measurements are also compared with Klebanoffs 
incompressible results and previous hot wire hypersonic measurements in 
Figure 5. There is reasonably good agreement between the hypersonic laser 
velocimeter and incompressible hot wire data when normalized by the wall 
friction velocity. This is in contrast to previous hot wire compressible flow 
results, reviewed in Ref. 6, which show a monotonic decrease with increasing 
Mach number. However, all these past hot wire results have been evaluated 
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assuming zero pressure fluctuations which we would expect to become more 
important with increasing Mach number (Ref. 2). The turbulent velocity cross 
correlations are presented in Figure 6. which show's the variation of the turbulent 
velocity correlation coefficient across the boundary layer. The maximum value 
of approximately -0.4 is in close agreement with incompressible shear layer 
observations. 

The most stringent test of particle response was made by perturbing the 
flow and measuring the particle velocity variation across an oblique shock wave 
and shear layer generated by the introduction of a 20 deg. flare. Unfortunately, 
these attempts to determine particle response were complicated by the proximity 
of the shock to the shear layer on the flare and by shock boundary /layer 
interaction instabilities. The results of a scan taken 2 inches above the model 
surface are presented in Figure 7 which shows the measured mean streamwise 
velocity and flow angularity distributions through the shock and shear layer 
region compared with conical flow theory and shadowgraph measurements of the 
shock location. The location of the measured mean velocity gradient is in good 
agreement with the shadowgraph shock location and the velocity change across 
the shock is comparable to conical flow predictions until the shear layer is 
encountered. The flow angularity measurements are consistent with conical flow 
predictions and the experimental flare angle. These comparisons indicate 
adequate particle response since some of the velocity and flow angularity gradient 
discrepancies across the shock are probably caused by small scale, time dependent 
oscillations of the shock wave about its mean location. Indeed, attempts to 
measure particle response across the 30 deg. shock wave were unsuccessful as the 
increased tunnel blockage led to excessive flow field instabilities and extensive 
shock motions. 

The velocity probability density distributions, shown in Figure 8, are 
narrow in the freestream ahead of the shock where the turbulence level is low 
and wider in the more turbulent region within the shock layer. They are clearly 
bimodal in the region of the time averaged shock location. These bimodal 
distributions are of most interest as they give a clear indication of particle 



response in hypersonic flow. The bimodal distributions shown in Figure 8 are 
due to shock wave fluctuations around its mean location. Thus, if the particles 
follow the flow, the two, bimodal peaks should be a measure ot the velocity 
change across the shock. Since, when the instantaneous shock location is 
upstream of the focal volume, particles will register the lower velocity behind the 
shock and, when the focal volume is upstream of the instantaneous shock location, 
the higher freestream velocity will be recorded. 

The shift from the dominant freestream peak ahead of the shock as the 
probe volume is traversed towards the model, is a measure of the probability ot 
shock passage through the focal volume. The location ot the most symmetrical 
bimodal distribution is the most likely, time-average shock location. Thus, trom 
these velocity probability density distributions we can determine the particle 
velocity change across the shock and estimate the mean shock location above the 
plate. These results compare well with theoretical velocity change predictions 
and optical observations of the mean shock location. 

These measurements can also be used to assess seed particle response and 
dynamics in hypersonic flow. Using the measured velocity change and calculated 
transit time through the shock wave region, seed particle response characteristics 
can be calculated. These calculations show that the measured particle response is 
equivalent to that of a 0.3 micron, specific gravity 1.0 sphere which undergoes a 
deceleration of almost seven million times the acceleration due to gravity; ie. 

7 Mg. This size and acceleration is consistent with hypersonic modifications to 
the Stoke ’s drag law. Since, in hypersonic flow the particle drag coefficient is 
inversely proportional to the particle Reynolds and Knudsen numbers. 

5.0 CONCLUDING REMARKS 

Diagnostic tools are available to attempt the measurement of turbulent 
hypersonic flows, an area where comprehensive studies are lacking. 

Comparisons of new laser velocimeter turbulence measurements with previous 
hot wire results indicates that past data reduction assumptions can result in 
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significant measurement errors in hypersonic flows. It is felt that these new test 
results are the most convincing evidence to date of particle response in 
hypersonic flow. They clearly show that attempts to assess seed particle response 
must involve detailed studies of the velocity probability distributions. Particle 
response assessments inferred from conventional time-averaged velocity 
measurements could well be flawed by their failure to account for the hidden, 
adverse effects of large-scale, time-dependent mean flow variations which, on 
closer examination, may well manifest themselves in the velocity probability 
density distributions. Clearly, extensive work is still needed to establish a reliable 
data base for turbulence modeling and to define the reliable ranges of laser 
anemometer application. 
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Table 1. Seeder Operation. 

LDV SEEDER OPERATION : LIQUID SEED 

All manual and solenoid valves closed except #10 (drain). Liquid seed nozzle installed in 
heater port. Flex hose lines attached to liquid seed tank. Control valves backed off. 

FILL TANK 

1) Open MV-5 (manual). 

2) Open MV-4 (manual). 

3) Fill tank with liquid seed until it flows out of drain valve. 

4) Close MV-5, MV-4, and drain #10. 

PRESSURIZE LIQUID SEED TANK AND SEED LINE TO HEATER 

5) Open valve to 3000 PSIA nitrogen bank. 

6) Open MV-3 (manual) and CV-3 (solenoid). 

7) Adjust FCV-3 (control valve) until pressure is above tunnel total pressure. Use pressure 
gage PT-3 to adjust. N.B. FCV-3 valve will be incrementally adjusted to achieve optimum 
seeding during run. 

8) Open MV-2 (manual). 

9) Open CV-2 (solenoid). 

PRESSURIZE 3000 PSIA AIR LINE TO HEATER 

10) Open valve to 3000 PSIA air line. Open CV-1 (solenoid). 

11) Adjust FRV-1 and FCV-1 (control) so pressure read by gage PT-1 is 100 PSI above tunnel 
total pressure. 

12) Close CV-1 (solenoid) and open MV-1 (manual). 

START BLOWDOWN. 

IN CONTROL ROOM 

13) When tunnel conditions are met, open CV- 1 (solenoid). 

14) Adjust control valves FCV-3 and FCV-1 so that seed pressure and air pressure are higher 
than tunnel operating pressure. Use LDV Data Acquisition System plus oscilloscope to 
determine optimum seeding. 

END MJOWDOmi 

IN CONTROL ROOM 

15) Back off FCV-3 (control). Close CV-3 (solenoid). 

16) Back off FCV-1 and FRV-1 (control). Close CV-1 (solenoid). 

BY HEATER 

17) Close MV-1 and MV-3 (manual). 

18) Close valves to 3000 nitrogen and air lines. 

19) Open MV-5 (manual) to relieve pressure in seeder tank to heater flue. 

20) When flow stops, close MV-5, open drain #10, remove and/or replace seeder nozzle and seed 
filter (#6). 
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Table 1. Seeder Operation Continued. 

LDV SEEDER OPERATION : DRY SEED 

All manual and solenoid valves closed except #10 (drain). Flex hose lines attached to dry 
seed tank. Control valves backed off. Liquid seed filter screen removed to prevent clogging. 

FILL TANK 

1) Unscrew dry seed filler cap from dry seed tank. 

2) Fill with dry seed, and replace filler cap. 

3) Hook up to flex hose lines. 

4) Close drain valve (#10). 

5) Follow steps 5 to 18 of liquid seed operation then complete the following steps 6 & 7. 

6) Open MV-6 (manual) to relieve pressure in seeder tank to heater flue. 

7) When flow stops, close MV-6, open drain #10, remove and/or replace seeder nozzle. 
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Table 2. Optical Details. 


Parameter 

Symbol or Eciuation 

Value 

Units 

Wavelength 

Larrbda [ 

5145 

A 




Focal Length (transmitting lens) 
Focal Length (receiving lens) 
Focal Length (lens to fiber) 

Ft 

0.7620 

meters 

Fr 

0.7620 

meters 

Ff 

0.7620 

meters 




Aperture Diameter at Fiber 
Receiving Side Lens Diameter 
Beam to Receiving Lens Gap 

DC 

0.0006 

meters 

Id 

0.1524 

meters 

Gap 

0.0889 

meters 



Beam Separation at Transmitting Lens 
Beam Diameter at Lens 

Bt 

0.007 938 

meters 

DL 

0.002 200 

meters 

Convergence Full Angle 

Tf = 2 * ATAN { Bt / 2 /Ft ) 

0.597 

degrees 

Convergence Half Angle 

Th - 1*ATAN (Bt/2/Ft) 

0.298 

degrees 

Fringe Spacing 

X = Larrbda/ (2*SIN (Th) 

0.000 049 

meters 

Number of Fringes in Probe Volume 

Npv= Dpv/X 

5 


Off Axis Collecting Angie 

Tc = Th+ATAN (Gap/Fr) +ATAN (Ld/2/Fr) 

12.7 

degrees 

Beam Diameter at Waist 

Dw = 4 * Larrbda *Ft/ Pi /Dl) 

0.000 227 

meters 

Beam Diameter at Probe Volume 

Dpv= Dw/COS (Th) 

0.000 227 

meters 

Length of Probe Volume 

Lpv= Dw/SIN (Th) 

0.043 565 

meters 

Probe Volume Effective Length 

VI = Df*Fr/Ff /SIN (Tc) 

0.002 737 

meters 

Macrodyne Frequency 

Bragg Frequency 

Mixing Frequency 

Sign of Macrodyne Frequency 

Sign of Bragg Frequency 

Sign of Mixing Frequency 

Flnac=Fringes* Clock/ (Bin*2 A (Range-0) ) 



Hz 

Fbrag 

40 000 000 

Hz 

FYnix 

0 

Hz 

Stbc 

-1 

... 

Sbrag 

1 

... 

3nix 

1 

— 




Counter Clock Rate 

Clock 

1 000 000 000 

Hz 

Fringes Counted 
Total Frequency 

Fringes 

8 

... 

Ftotal=Smac*Frrac+Sbrag*FbragTSrrirx*Fmix 

— 

Hz 

Velocity 

Velocity=X*Ftotal 

— 

m/s 

Velocity Resolution 

Resolution 

... 

m/s 

Time in Focal Volume 

T = ABS (Dpv/ Velocity) 

--- 

s 

Number of Fringes Seen 

Ns = Firac*T 



Power at fiber exit (nominal) 

Fewer 

0.3 

Watts 
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Table 2. Optical Details Continued. 


Parameter 

Wavelength 

Focal Length (transmitting lens) 

Focal Length (receiving lens) 

Focal Length (lens to fiber) 

Aperture Diameter at Fiber 
Receiving Side Lens Diameter 
Beam to Receiving Lens Gap 

Beam Separation at Transmitting Lens 
Beam Diameter at Lens 

Convergence Full Angle 
Convergence Half Angle 
Fringe Spacing 

Number of Fringes in Probe Volume 

Off Axis Collecting Angie 

Beam Diameter at Waist 
Beam Diameter at Probe Volume 
Length of Probe Volume 
Probe Volume Effective Length 

Macrodyne Frequency 

Bragg Frequency 

Mixing Frequency 

Sign of Macrodyne Frequency 

Sign of Bragg Frequency 

Sign of Mixing Frequency 

Counter Clock Rate 
Fringes Counted 

Total Frequency 
Velocity 

Velocity Resolution 
Time in Focal Volume 
Number of Fringes Seen 

Power at fiber exit (nominal) 


Symbol or Equation 


Value Units 


Larrbda 

Ft 

Fr 

Ft 

Df 

Id 

Gap 

Bt 

Dl 

Tf = 2*ATAN (Bt/2/Ft) 

Th = 1*ATAN (Bt/2/Ft) 

X = Larrbda/ (2*SIN (Th) 

Npv= Dpv/X 

Tc « Th+ATAN (Gap/Fr) +ATAN (Ld/2/Fr) 

Cw = 4* Larrbda *Ft/ Pi /Dl) 

Dpv= Dw/COS (Th) 

Lpv= Dw/SIN (Th) 

VI = Df *Fr/Ff /SIN (Tc) 

Ftac=Fringes*Clock/ (Bin*2 A (F^ange-0) ) 

Fbrag 

ETrrux 

Sthc 

Sbrag 

Simix 

Clock 

Fringes 


4880 


0.7620 

0.7620 

0.7620 


meters 

meters 

meters 


0.0006 


0 . 1524 


0.0889 


meters 

meters 

meters 


0.007 938 

meters 

0.002 200 

meters 

0.597 

degrees 

0.298 

degrees 

0.000 047 

meters 

5 

... 

12.7 

degrees 

0.000 215 

meters 

0.000 215 

meters 

0.041 321 

meters 

0.002 737 

meters 

... 

Hz 

40 000 000 

Hz 

0 

Hz 

•1 

... 

1 

... 

1 

... 



1 000 000 000 

Hz 

8 

... 


Ftotal=Srac*FYrac+Sbrag* Fbrag+Smix * Fmix 

Ve loci t y =X* Ft ot al 

Resolution 

T = ABS (Dpv/ Velocity) 

Ns = Frrac*T 


Power 


0.3 Watts 
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Figure 1. Schematic of the 3.5 ft. HWT LDV Seeder System. 






a.) Wind off. 



b.) Wind on. 


Figure 2. Laser Doppler Velocimeter Signals 
(Vertical Velocity Component). 
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Figure 3. Comparison of Probe and Laser Velocimeter Data. 



Figure 4. Velocity Fluctuations across the Zero Pressure Gradient Boundary Layer. 



Figure 5. Comparison of Axial Velocity Fluctuations. 
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Figure 6. Turbulent Velocity Cross-Correlation Coefficient. 
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Figure 7. Laser Velocimeter Measurements Across an Oblique Shock Wave. 
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Figure 8. Particle Response in Hypersonic Flow. 


16 



Laser Velocimeter Data 
Acquisition System 

to 

Sun Sparc Station 
snw 16 Bit 
Parallel Interface 

Documentation 


Complere Inc. 

December 1992 


SBIR RIGHTS NOTICE 

Final Report Contract Number: NAS 2-12853. 

Information contained in this documentation is subject to the SBIR Rig hts Notice (June 1987). 



LVDAS to SUN 16 Bit 
Parallel Interface. 


TAR1.F. OF CONTENTS 


Section Title 


Page 


1.0 Introduction. 


2.0 Interface Cable. - 

2. 1 LVDAS to SUN Interface Cable. 3 

2.2 SUN High Density Connector. 4 

2.3 LVDAS Circular Connector. 5 

2.4 Handshake Timing Diagram for Transfer of Data from SUN to LVDAS. 6 

2.5 Handshake Timing Diagram for Transfer of Data from LVDAS to SUN. 7 

3.0 Data Acquisition Commands. 8 

3.1 “CS” Command: Sample All Channels with Coincidence. 8 

3.2 “SC’ Command: Sample One Channel. 12 

3.3 “SA” Command: Sample All Channels. 15 


LIST OF FIGURES 

■ i , ' ■ iiiii | 


Figure Title Page 

1 . LVDAS to SUN Interface Cable Schematic Drawing. 3 

2. SUN High Density Connector Pin Locations. 4 

3. LVDAS Circular Connector Pin Locations. 5 

4. Handshake Timing Diagram for Transfer of Data from SUN to LVDAS. 6 

5 . Handshake Timing Diagram for Transfer of Data from LVDAS to SUN. 7 


SBIR RIGHTS NOTICE 

Final Report Contract Number: NAS 2-12853. 

Information contained in this documentation is subject to the SBIR Rights Notice (June 1987). 


1 



1.0 INTRODUCTION 


This documentation describes the LVDAS to SUN interface as well as the data 
acquisition commands that control the flow of data between the two devices. Section 2 of 
this documentation provides a detailed schematic drawing of the interface cable, a drawing 
showing the SUN high density connector pin locations, a drawing showing the LVDAS 
circular connector pin locations, and timing diagrams for the transfer of data between the 
two devices. 

Section 3 of this documentation provides a detailed description of the data acquisition 
commands sent to the LVDAS to control the flow of data between the two devices. The 
types of data, quantity of data, the data acquisition time, and the data formats are also 
described in Section 3. 

The LVDAS can acquire up to 10,000 coincident data sets. Each data sets is 
composed of 10 words where the word size is 16 bits or 2 bytes. Therefore, the total 
buffer size is 10,000*10*2 which is equal to 200,000 bytes. 

2.0 INTERFACE CABLE 

The interface between the Laser Velocimeter Data Acquisition System (LVDAS) and 
the SUN Sparc Station Computer is a 16 bit parallel general purpose input / output 
interface. The interface cable shown in Figure 1 consists of a standard cable (SUN EDT 
Part Number: CAB-A-25) with the terminating connectors on one end removed and 
replaced with a 55 pin circular connector (Cannon Part Number: MS3470W22-55P). The 
80 pin high density connector attaches to the single slot interface card (SUN Part Number: 

S 1 1 W / S 16D) within the SUN computer. The pin locations for the high density connector 
are shown in Figure 2. The 55 pin circular Cannon connector attaches to the Parallel I/O 
port at the back of the LVDAS. The pin locations of the circular connector are shown in 
Figure 3. 

The timing diagram in Figure 4 shows the handshake sequence for transferring 
commands or data from the SUN computer to the LVDAS. The timing diagram in Figure 5 
shows the handshake sequence for transferring data from the LVDAS to the SUN 
computer. 
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2.1 LVDAS to SUN Interface Cable. 



3 





2.2 SUN High Density Connector. 



4 


Figure 2. SUN High Density Connector Pin Locations. 





2.3 LVDAS Circular Connector. 



Rear View of 
Cable Connector. 
SUN Pin 
Assignments. 


Front View of 
LVDAS Connector. 
LVDAS Pin 
Assignments. 


Figure 3. LVDAS Circular Connector Pin Locations. 
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2.4 Handshake Timing Diagram for Transfer of Data from SUN to LVDAS 
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Figure 4. Handshake Timing Diagram for Transfer of Data from SUN Computer to LVDAS. 
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Handshake Timing Diagram for Transfer of Data from LVDAS to SUN 
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Figure 5. Handshake Timing Diagram for Transfer of Data from LVDAS to SUN Computer. 


3.0 DATA ACQUISITION COMMANDS 


This section provides a detailed description of the data acquisition commands and 
parameters sent to the LVDAS to control the flow of data between the two devices. 

Commands sent to the LVDAS tell the LVDAS to perform a specific task. 

Parameters sent to the LVDAS specify the conditions under which the data acquisition 
is to take place. Parameters, depending on the command, might include the desired data 
acquisition time, the desired coincidence time, the inter-amval and coincidence time 
exponents, the desired coincidence channel selection, and the desired number of coincident 
data set samples. 

The types of data returned to the computer, depending on the command, might 
include the inter-arrival time, coincidence time and status, valid data indication, digital 
frequency data, and digitized analog voltage data. 

3.1 “CS” Command: Sample All Channels with Coincidence. 


The “CS” command will acquire a finite number of coincident data sets over a finite 
acquisition time. The following commands, parameters, and data are transferred between 
the LVDAS and the computer: 


WORD SYMBOL DESCR IPTIO N 


DIRECTION LE NG TH TYPE 


1 

Cmnd 

“CS” command 

Computer to LVDAS 

1 

Command 

2&3 

DAtime 

Desired acquisition time 

Computer to LVDAS 

2 

Parameter 

4&5 

DCtime 

Desired coincidence time 

Computer to LVDAS 

2 

Parameter 

6 

ATexp 

Inter-arrival time exponent 

Computer to LVDAS 

1 

Parameter 

7 

CTexp 

Coincidence time exponent 

Computer to LVDAS 

1 

Parameter 

8 

Cmask 

Coincidence mask 

Computer to LVDAS 

1 

Parameter 

9 

DNsam 

Desired number of samples 

Computer to LVDAS 

1 

Parameter 

10 

RNsam 

Realized number of samples 

LVDAS to Computer 

1 

Parameter 

11 

DataO 

Inter-arrival time 

LVDAS to Computer 

1 

Data 

12 

Datal 

Coincidence time 

LVDAS to Computer 

1 

Data 

13 

Data2 

Coincidence status 

LVDAS to Computer 

1 

Data 

14 

Data3 

Not used 

LVDAS to Computer 

1 

Data 

15 

Data4 

Data valid 

LVDAS to Computer 

1 

Data 

16 

DataS 

Digital channel #1 raw data 

LVDAS to Computer 

1 

Data 

17 

Data6 

Digital channel #2 raw data 

LVDAS to Computer 

1 

Data 

18 

Data7 

Digital channel #3 raw data 

LVDAS to Computer 

1 

Data 

19 

Data8 

Analog channel #1 raw data 

LVDAS to Computer 

1 

Data 

20 

Data9 

Not used 

LVDAS to Computer 

1 

Data 


The data words 1 1 through 20 above are repeated RNsam times. 
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The range (min & max), units, and format for the above commands, parameters, and 
data are shown below: 


SYMBOL 

MIN 

MAX 

UNITS 

FORMAT 

Cmnd 

“CS” 

- 

none 

2 ASCH Bytes 

DAtime 

0 

4,294,967,295 

100ns 

Unsigned 32 bit integer 

DCtime 

0 

4,294,967,295 

100ns 

Unsigned 32 bit integer 

ATexp 

0 

16 

none 

Unsigned 16 bit integer 

CTexp 

0 

16 

none 

Unsigned 16 bit integer 

Cmask 

1 

7 

none 

Unsigned 16 bit integer 

DNsam 

0 

10,000 

none 

Unsigned 16 bit integer 

RNsam 

0 

10,000 

none 

Unsigned 16 bit integer 

DataO 

0 

65,535 

ns* 

Unsigned 16 bit integer 

Datal 

0 

65,535 

ns* 

Unsigned 16 bit integer 

Data2 

0 

15 

none 

Unsigned 16 bit integer 

Data3 

0 

0 

none 

Unsigned 16 bit integer 

Data4 

1 

1 

none 

Unsigned 16 bit integer 

Data5 

0 

65,535 

Hz* 

Unsigned 16 bit integer 

Data6 

0 

65,535 

Hz* 

Unsigned 16 bit integer 

Data7 

0 

65,535 

Hz* 

Unsigned 16 bit integer 

Data8 

-32,768 

32,767 

volts* 

Signed 16 bit integer 

Data9 

65,535 

65,535 

none 

Signed 16 bit integer 


The data words whose units are noted by a * are encoded. Their values in the specified 
units can be calculated using the raw encoded data. 

The command word Cmnd (=CS) tells the LVDAS that the computer will want to 
acquire laser velocimeter data with coincidence. The maximum desired acquisition time 
DAtime and desired coincidence time DCtime are specified in 100 ns counts and each is 
sent to the LVDAS as two 16 bit words concatenated into one 32 bit unsigned integer. For 
example, counts of 50000, 10000000, and 600000000 would yield times of 
5 milliseconds, 1 second, and 1 minute respectively. 

The inter-arrival time exponent ATexp and coincidence time exponent CTexp are use 
to modify the inter-arrival and coincidence times. The LVDAS measures these times with a 
resolution of 100 ns and an unsigned integer data size of 32 bits. The 32 bit inter-amval 
time is shifted right by the number of bits specified by the inter-amval time exponent 
ATexp. The 32 bit coincidence time is shifted right by the number of bits specified by the 
coincidence time exponent CTexp. The resulting 16 bit words are later sent to the 
computer. 

The coincidence mask Cmask determines the desired coincidence criterion. The least 
significant three bits individually select the digital channels #1, #2, and #3 for coincidence. 
Valid coincidence masks are as follows: 
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Coincidence 

Coincidence 

Channel 

Channel 

Channel 

Mask 

Mask 

#3 

#2 

#1 

(decimal) 

(binary) 

(selected) 

(selected) 

(selected) 

0 

0000 00000000 0000 

NO 

NO 

NO 

1 

0000 00000000 0001 

NO 

NO 

YES 

2 

0000 0000 0000 0010 

NO 

YES 

NO 

3 

0000 0000 0000 0011 

NO 

YES 

YES 

4 

0000 0000 0000 0100 

YES 

NO 

NO 

5 

0000 0000 0000 0101 

YES 

NO 

YES 

6 

0000 0000 0000 0110 

YES 

YES 

NO 

7 

0000 00000000 0111 

YES 

YES 

YES 


The desired number of samples DNsam specifies the number of coincident data sets 
to be acquired within the previously specified desired data acquisition time D Atime. The 
data acquisition commences when DNsam is received by the LVDAS. 

The data acquisition terminates when one of two conditions occur. The first 
terminating condition is that DNsam coincident data sets are realized before the allocated 
data acquisition time DAtime expires. In this case, the desired DNsam and realized 
RNsam number of samples are the same. The second terminating condition is that 
DNsam coincident data sets are not realized before the allocated data acquisition time 
DAtime expires. In this case, the realized number of samples RNsam may be less than 
the desired number of samples DNsam. In both terminating conditions, this value 
(RNsam) is then sent from the LVDAS to the computer to indicate data acquisition 
completion and to also indicate the size of the data array to be subsequently transferred to 
the computer. 

Each coincident data set consists of ten 16 bit words. RNsam indicates the number 
of acquired coincident data sets. Therefore, there will be 10*RNsam words sent from the 
LVDAS to the computer. The computer’s data array should be dimensioned accordingly. 
The 10 words will include the inter-arrival and coincidence times, the coincidence status 
and data valid words, as well as the digital and analog raw data words. 

The inter-arrival time DataO and coincidence time Datal raw data words can be 
converted to the actual inter-arrival time IAtime and realized coincidence time RCtime in 
seconds using the following equations: 

IAtime = DataO * (2 A ATexp)/ (1(^7) seconds 

RCtime = Datal * (2*CTexp)/ (10*7) seconds 

The coincidence status Status and data valid Valid words, Data2 and Data3 
respectively, indicate the channels that have new data in the data set and the validity of the 
data. If Valid=0 then the data set does not contain valid data. If Valid=l then the data set 
does contain valid data. The least significant four Status bits individually indicate weather 
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of not new data has been acquired on the digital and analog channels: 


Status 

Status 

Analog 

Digital 

Digital 

Digital 

Word 

Word 

Ch #1 

Ch#3 

Ch #2 

Ch #1 

(decimal) 

(binary) 

(new) 

(new) 

(new) 

(new) 

0 

0000 0000 0000 0000 

NO 

NO 

NO 

NO 

1 

0000 0000 0000 0001 

NO 

NO 

NO 

YES 

2 

0000 0000 0000 0010 

NO 

NO 

YES 

NO 

3 

0000 0000 0000 0011 

NO 

NO 

YES 

YES 

4 

0000 0000 0000 0100 

NO 

YES 

NO 

NO 

5 

0000 00000000 0101 

NO 

YES 

NO 

YES 

6 

0000 0000 0000 0110 

NO 

YES 

YES 

NO 

7 

0000 0000 0000 0111 

NO 

YES 

YES 

YES 

8 

0000 0000 0000 1000 

YES 

NO 

NO 

NO 

9 

0000 00000000 1001 

YES 

NO 

NO 

YES 

10 

0000 0000 0000 1010 

YES 

NO 

YES 

NO 

11 

0000 00000000 1011 

YES 

NO 

YES 

YES 

12 

0000 0000 0000 1100 

YES 

YES 

NO 

NO 

13 

0000 0000 0000 1 101 

YES 

YES 

NO 

YES 

14 

0000 0000 0000 1110 

YES 

YES 

YES 

NO 

15 

oooooooooooo mi 

YES 

YES 

YES 

YES 


The raw data words Data5, Data6, and Data7 contain the digital data from the 
Macrodyne laser velocimeter counter signal processors. These digital data can be converted 
into frequencies using the following equations: 


Mantissal 

Mantissa2 

Mantissa3 


Bits 0 to 9 of DataS 
Bits 0 to 9 of Data6 
Bits 0 to 9 of Data7 


Exponentl 

Exponent2 

Exponent3 


Bits 10 to 13 of DataS 
Bits 10 to 13 of Data6 
Bits 10 to 13 of Data7 


Fringesl 

Fringes2 

Fringes3 


If bit Hof Data5=0 then Fringesl=16 else Fringes 1=8 
If bit 14 of Data6=0 then Fringes2=16 else F ringes2=8 
If bit 14 of Data7=0 then Fringes3=16 else F ringes3=8 


Periodl 

Period2 

Period3 


Mantissal * (2 A Exponentl) / (1(^9) (seconds) 
Mantissa2 * (2 A Exponent2) / (10 A 9) (seconds) 
Mantissa3 * (2 A Exponent3) / (10 A 9) (seconds) 


Frequencyl = Fringesl /Periodl (Hz) 
Frequency2 = Fringes2 /Period2 (Hz) 
Frequency3 = Fringes3 /Period3 (Hz) 


The following equation is used to convert the raw data word Data8 into a voltage: 


Analog = Data8 * 5 / 32768 (volts) 
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3.2 “SC” Command: Sample One Channel. 


The “SC” command will acquire 1000 data samples from one channel. The following 
commands, parameters, and data are transferred between the LVDAS and the computer: 


WORD 

SYMBOL 

1 

Cmndl 

2 

Cmnd2 

3 

Channel 

4 

Cmnd3 

5 

Cmnd4 

6&7 

First 

8&9 

Last 

10&11* 

Datal 

12* 

Data2 

13* 

Data3 


DESCRIPTION 

“DT” command 

“SC’ command 
Channel Number 

“ET” command 

“RM” command 
Memory location 
Memory location 

Inter-arrival time 
Channel number 
Channel data 


DIRECTION 

Computer to LVDAS 

Computer to LVDAS 
Computer to LVDAS 

Computer to LVDAS 

Computer to LVDAS 
Computer to LVDAS 
Computer to LVDAS 

LVDAS to Computer 
LVDAS to Computer 
LVDAS to Computer 


LENGTH TYPE 

1 Command 

1 Command 

1 Parameter 

1 Command 

1 Command 

2 Parameter 

2 Parameter 

2 Data 

1 Data 

1 Data 


The data words 10 through 13 are repeated 1000 times. 

The range (min & max), units, and format for the above commands, parameters, and 

data are shown below: 


SYMBOL 

MIN 

MM 

UNITS 

FORMAT 

Cmndl 

“DT’ 

- 

none 

2 ASCII Bytes 

Cmnd2 

“SC” 

. 

none 

2 ASCII Bytes 

Channel 

1 

7 

none 

Unsigned 16 bit integer 

Cmnd3 

“ET’ 

- 

none 

2 ASCII Bytes 

Cmnd4 

“RM” 


none 

2 ASCII Bytes 

First 

08F00000 hex 

- 

none 

Unsigned 32 bit integer 

Last 

08F01F3F hex 

- 

none 

Unsigned 32 bit integer 

rjofo i 

0 

4,294,967,295 

100ns 

Unsigned 32 bit integer 

L/aiw M. 

Data2 

0 

6 

none 

Unsigned 16 bit integer 

Data3 

see text 

see text 

see text 

see text 


The first command word Cmndl (=DT) tells the LVDAS to disable internal timers 
which temporarily stops updating of the front panel displays. Sending out Cmndl is 
optional. The second command word Cmnd2 (=SC) tells the LVDAS that the computer 
will want to acquire laser velocimeter or analog data on one channel only. The data word 
Channel specifies the channel number for which data will be acquired. Valid channel 
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numbers are as follows: 


Channel 

Channel 

Generates 

Generates Inter- 

Number 

Description 

Data Word 

Arrival Time Words 

1 

Digital channel #1 

YES 

YES 

2 

Digital channel #2 

YES 

YES 

3 

Digital channel #3 

YES 

YES 

4 

Analog channel #1 

YES 

YES 

6 

External trigger timer 

NO 

YES 

7 

Inter-arrival time timer 

NO 

YES 


The data acquisition commences when Channel is received by the LVDAS. The 
third command word Cmnd3 (=ET) tells the LVDAS to enable internal timers which 
activates the updating of the front panel displays. After 1000 data samples have been 
acquired, then the third command word Cmnd3 will be executed. The computer can now 
read back the data from the buffer’s memory. Reading memory is initiated by sending the 
forth command word Cmnd4 (=RM) and the two memory buffer parameters First and 
Last. 

The LVDAS will respond by sending 4 words of data per sample to the computer. 

The first 2 words in Datal contain the inter-arrival time IAtime; the third word in Data2 
contains the channel number Channel; and the forth word in Data3 contains the channel s 
data. 

The two inter-arrival time raw data words in Datal can be converted to the actual 
inter-arrival time IAtime in seconds using the following equation: 


IAtime = Datal 7(10*7) seconds 


The type of data, its range (min & max), units, and format returned in Data3 depend 
on which channel, specified by Channel, the data was acquired on. (Note. The LVDAS 
will return channel numbers minus one: 0..6; not 1..7). 


Channel 

Channel 

Generates 

Generates Inter- 

Number 

Description 

Data Word 

Arrival Time Words 

0 

Digital Channel #1 

YES 

YES 

1 

Digital Channel #2 

YES 

YES 

2 

Digital Channel #3 

YES 

YES 

3 

Analog Channel #1 

YES 

YES 

5 

External Trigger Timer 

NO 

YES 

6 

Inter- Arrival Time Timer 

NO 

YES 
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CHANNEL 

MIN 

MAX 

UNITS 

FORMAT 

0 

0 

65,535 

Hz* 

Unsigned 16 bit integer 

1 

0 

65,535 

Hz* 

Unsigned 16 bit integer 

2 

0 

65,535 

Hz* 

Unsigned 16 bit integer 

3 

-32,768 

32,767 

volts* 

Signal 16 bit integer 


The data words whose units are noted by a * are encoded. Their values in the specified 
units can be calculated using the raw encoded data. 

If the data was acquired on channels 0 through 2, then the following equations should 
be used to convert the digital data from the Macrodyne laser velocimeter counter signal 
processors into frequencies: 


Mantissa 

Exponent 

Fringes 

Period 

Frequency 


= Bits 0 to 9 of Data3 
= Bits 10 to 13 of Data3 

If bit 14 of Data3=0 then Fringes=16 else F ringes=8 
= Mantissa * (2 A Exponent) / (10*9) (seconds) 

= Fringes /Period (Hz) 


If the data was acquired on channel 3, then the following equation should be used to 
convert the raw data word into a voltage: 


Analog = Data3 * 5 / 32768 (volts) 

Channels 4 through 6 produce an inter-amval time but do not generate any 
meaningful data. Their data is ignored. 
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3.3 “SA” Command: Sample AH Channel. 


The “SA” command will acquire 1000 data samples from all channels. The 1000 
samples will be spread out over all enabled channels. Channels with higher data rates will 
generate more samples than channels with lower data rates. The sum total of all samples 
will be 1000 samples. The following commands, parameters, and data are transferred 
between the LVDAS and the computer: 


WORD 

SYMBOL 

1 

Cmndl 

2 

Cmnd2 

3 

Mask 

4 

Cmnd3 

5 

Cmnd4 

6&7 

First 

8&9 

Last 

10&11* 

Datal 

12* 

Data2 

13* 

Data3 


DESCRIPTION 

“DT” command 

“SA” command 
Channel Mask 

“ET” command 

“RM” command 
Memory location 
Memory location 

Inter-arrival time 
Channel number 
Channel data 


DIRECTION 

Computer to LVDAS 

Computer to LVDAS 
Computer to LVDAS 

Computer to LVDAS 

Computer to LVDAS 
Computer to LVDAS 
Computer to LVDAS 

LVDAS to Computer 
LVDAS to Computer 
LVDAS to Computer 


LENGTH TYPE 

1 Command 

1 Command 

1 Parameter 

1 Command 

1 Command 

2 Parameter 

2 Parameter 

2 Data 

1 Data 

1 Data 


The data words 10 through 13 are repeated 1000 times. 

The range (min & max), units, and format for the above commands, parameters, and 

data are shown below: 


SYMBOL 

MIN 

MAX 

UNITS 

FORMAT 

Cmndl 

“DT” 

- 

none 

2 ASCII Bytes 

Cmnd2 

“SA” 


none 

2 ASCII Bytes 

Mask 

1 

127 

none 

Unsigned 16 bit integer 

Cmnd3 

“ET’ 

- 

none 

2 ASCII Bytes 

Cmnd4 

“RM” 


none 

2 ASCII Bytes 

First 

08F00000 hex 

. 

none 

Unsigned 32 bit integer 

Last 

08 F 01 F 3 F hex 

- 

none 

Unsigned 32 bit integer 

Datal 

0 

4,294,967,295 

100ns 

Unsigned 32 bit integer 

Data2 

0 

6 

none 

Unsigned 16 bit integer 

Data3 

see text 

see text 

see text 

see text 


The first command word Cmndl (=DT) tells the LVDAS to disable internal timers 
which temporarily stops updating of the front panel displays. Sending out Cmndl is 
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optional. The second command word Cmnd2 (=SA) tells the LVDAS that the computer 
will want to acquire laser velocimeter and/or analog data on all channels. The data word 
Mask specifies the channel numbers for which data will be acquired. Each bit in the 
Mask enable data acquisition on the relevant channels. Channels whose Mask bit equals 
zero will be ignored. Channels whose Mask bit equals one will be serviced each time data 
becomes available. 


Channel 

Mask 

Channel 

Number 

Bit 

Description 

1 

0 

Digital channel #1 

2 

1 

Digital channel #2 

3 

2 

Digital channel #3 

4 

3 

Analog channel #1 

6 

5 

External trigger timer 

7 

6 

Inter-amval time timer 


Generates 

Generates Inter- 

Data Word 

Arrival Time Words 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

NO 

YES 

NO 

YES 


The data acquisition commences when Mask is received by the LVDAS. The third 
command word Cmnd3 (=ET) tells the LVDAS to enable internal timers which activates 
the updating of the front panel displays. After 1000 data samples have been acquired, then 
the third command word Cmnd3 will be executed. The computer can now read back the 
data from the buffer’s memory. Reading memory is initiated by sending the forth command 
word Cmnd4 (=RM) and the two memory buffer parameters First and Last. 

The LVDAS will respond by sending 4 words of data per sample to the computer. 

The first 2 words in Datal contain the channel inter-arrival time IAtime; the third word in 
Data2 contains the channel number Channel; and the forth word in Data3 contains the 
channel’s data. 

The channel inter-arrival times are the inter-arrival times of data samples acquired on 
the same channel. The average channel inter-arrival time for all samples acquired on a 
specific channel yield that channels data rate (rate= 1/period). The two channel inter-amval 
time raw data words in Datal can be converted to the actual inter-amval time IAtime in 
seconds using the following equation: 


IAtime = Datal/ (10^7) seconds 


The type of data, its range (min & max), units, and format returned in Data3 depend 
on which channel, specified by Channel, the data was acquired on. (Note: The LVDAS 
will return channel numbers minus one: 0..6; not 1..7). 
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Channel 

Channel 


Generates Generates Inter- 

Number 

Description 


Data Word Arrival Tune Words 

0 

Digital Channel #1 

YES 

YES 

1 

Digital Channel #2 

YES 

YES 

2 

Digital Channel #3 

YES 

YES 

3 

Analog Channel #1 

YES 

YES 

5 

External Trigger Timer 

NO 

YES 

6 

Inter- Arrival Time Timer 

NO 

YES 

CHANNEL 

MIN 

MAX 

UNITS 

FORMAT 

0 

0 

65,535 

Hz* 

Unsigned 16 bit integer 

1 

0 

65,535 

Hz* 

Unsigned 16 bit integer 

2 

0 

65,535 

Hz* 

Unsigned 16 bit integer 

3 

-32,768 

32,767 

volts* 

Signed 16 bit integer 


The data words whose units are noted by a * are encoded. Their values in the specified 
units can be calculated using the raw encoded data. 

If the data was acquired on channels 0 through 2, then the following equations should 
be used to convert the digital data from the Macrodyne laser velocimeter counter signal 
processors into frequencies: 

Mantissa = Bits 0 to 9 of Data3 
Exponent = Bits 10 to 13 of Data3 

Fringes If bit 14 of Data3=0 then Fringes=16 else F ringes=8 

Period = Mantissa * (2 A Exponent) / (10*9) (seconds) 
Frequency = Fringes /Period (Hz) 

If the data was acquired on channel 3, then the following equation should be used to 
convert the raw data word into a voltage: 

Analog = Data3 * 5 / 32768 (volts) 

Channels 4 through 6 produce an inter-arrival time but do not generate any 
meaningful data. Their data is ignored. 
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1.0 


THE LASER DOPPLER VELOCIMETER 


The layout of the 3.5 FT HWT Laser Doppler Velocimeter is shown schematically in 
Fig. 1. Details of the plenum optics are shown in Fig. 2. 


Electronics Rack 



Mean velocity and turbulence measurements are made with a dual-beam velocimeter 
utilizing a Bragg cell that enables moving interference fringes to be generated in the focal volume 
so that instantaneous velocity magnitude and direction measurements can be achieved from the 
frequency shift (f D ) around the incident and modulated laser beam interference frequency (f 0 ). i.e. 
U = X(f D -f 0 ) / 2 sin (0/2) where X is the wavelength of the incident laser light. 
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The transmitting optics color separation system (Fig. 3) is straightforward with a few 
unique features addressing the common problem of beam distortion or thermal blooirung at higher 
laser powers. Frequency shifting is done before the color separation prisms, using a single 
acousto-optic modulator made of a selected flint glass, which can handle substantial laser power 
with minimal distortion. This is followed by color separation prisms, the first of which are made 
of fused silica for power handling capacity. A final prism of dense flint provides maximum 
angular displacement once the light has been dispersed into numerous beams. Final color selection 
is made using right angle prisms. The lines used for this application were 514.5 nm and 488 nm. 
Other laser lines could have been selected. 



Pure fused-silica core single-mode polarization-preserving fibers are used for light 
transmission; two fibers per color. The use of optical fibers avoids the tedium of mirror traverse 
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alignment. The pure fused silica core fibers are less susceptible to the progressive transmission 
losses which are found in other fibers. Polarization preserving fibers provide greater modal 
stability when the fibers are flexed or manipulated. For mechanical and thermal protection, the 
fibers are armored and contained within a conduit which is air cooled within the plenum. Upon 
exiting the fibers the light is collimated at 2.2 mm dia. with a separation of 60 mm. Adjustable 
rhomboid prisms reduce the beam separation to .3125 inches. The final focusing lens is 50.8 mm 
diameter and 750 mm focal length. 

Forward-scattered light is collected with a 6 inch diameter, 30 inch focal length lens and 
focused into a 600 (am multi-mode optical fiber, which conducts it to the color separation and 
signal detection box through an air cooled conduit. For maximum throughput efficiency of the 
collected light color separator, a prism separation scheme is used rather than di-chroic filter and 
interference filters.. 

Experience has shown that accurate positioning is vital to a successful test program. 
Position is maintained by a custom designed eight axis capable traverse controller with micro- 
stepping drives, optical encoder feedback, and limit switch safety stops. Chapter 4 contains a 
detailed description of the traverse control system. 

2.0 TRANSMITTING COLOR SEPARATION SYSTEM ALIGNMENT 

2.1 Optics Enclosure 

In order to steer the laser beam into the transmitting color separation box (Fig. 3), the best 
approach is often to use two steering mirrors between the laser and the box. This allows the beam 
to be fully manipulated without moving the laser or the box. 

WARNING 

LASER SHOULD BE OPERATED AT 
MINIMUM POWER DURING ALIGNMENT. 

DO NOT STARE AT THE BEAM 
OR DIFFUSE REFLECTIONS. 

WEAR APPROPRIATE PROTECTIVE EYEWEAR. 

PROJECT BEAMS ONTO A DULL, FLAT 
BLACK, NON-FLAMMABLE SURFACE. 
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Select a position for the color separation box on the optical table which supports the laser 
and bolt down the box baseplate using the clearance holes at the center of each side of the 
baseplate. 

2.2 Outside Steering Mirrors 

Move the polarization rotator and Bragg cell out of the way and open the iris diaphragm 
fully. Adjust the position and orientation of the input steering mirrors to direct the beam into the 
color separation box at a height ot 4.25 inches from the top surface of the baseplate and 1.25 
inches from the inside surface of the front plate. This can be checked by placing transparent rulers 
into the beam path at each end of the optics box. 

2.3 Polarization Rotator 

Put the polarization rotator into its holder and adjust it so that the beam travels through the 
center of the aperture. The polarization will be set after the Brewster angle dispersion prisms are 
put into position. 

2.4 Acousto-Optic Modulator (Bragg Cell) 

Set the precision micrometer adjustment of the the Bragg cell mount to the middle of its 
travel; about three full turns from the stops. 

Slide the Bragg cell into the beam. 

Connect the Bragg cell RF input to the inside front panel BNC feed through with a short 
length of RG-58 cable. 

Connect the Bragg cell driver to the outside front panel BNC connector. 

Loosen the gross movement set screw and position the Bragg cell so that the beam travels 
through the center of both the input and output apertures. Tighten the gross movement set screw. 

Switch on the Bragg cell driver and turn up the drive power so that the diffracted beams can 
be seen. 

Tilt the Bragg cell up and down to identify the first order diffracted beam. The unshifted 
beam is the one which remains when the Bragg cell driver is switched off. As the Bragg cell is 
tilted back and forth, the first order diffracted beam will appear above and then below the 
undiffracted beam. The Bragg cell should be set so that the undiffracted beam is on the bottom. 
Using the precision adjustment knob, set the Bragg cell tilt to put the maximum amount of light 
into the upper, first diffracted beam. A laser power meter can be used for this. 

Adjust the Bragg cell drive power so that equal power is in both beams. Again, use a laser 
power meter for the greatest precision in this adjustment. This adjustment should be checked again 
at the measurement volume after the transmitting optics are completely set up. Coupling efficiency 
will vary from fiber to fiber. Also, the percentage of laser power diffracted into the shifted beam is 
wavelength dependent. Bragg cell drive power should be set to the best compromise, 
remembering that the ideal is equal power in each beam of each pair. 
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2.5 Dispersion Prisms 

The two fused silica Brewster angle prisms are fixed to their mount. The incident beam 
should strike the first prism about in the middle. Increase the laser power just enough so that all 
beams are visible. 

Rotate the prism pair while watching the refracted beams some distance past the prisms. 

As the prisms are rotated the refracted beams will be seen to move in one direction and then 
reverse. The position at which the beams reverse is the place to stop. Rotate the prisms just 
slightly to either side of that maximum deflection point. In one direction it will be seen that the 
beams are more circular than in the other. Fasten the mount at the point near the maximum 
deflection where the beams are circular. 

Put the mounted flint prism into its holder and adjust it in the same manner as the Brewster 
angle prisms. 

2.6 Polarization Rotator 

The polarization rotator should be set for maximum transmission through the dispersion 
prisms. A laser power meter will provide the greatest precision in this adjustment. 

2.7 Inside Steering Mirrors 

The three steering mirrors should be placed so that the incident beams strike them in the 
middle. The three mirrors direct the beams along a path of sufficient length to allow adequate 
separation of the beams. The mean beam height above the baseplate should be 4.25 inches. Some 
adjustment of the outside steering mirrors may be required. If the outside steering mirrors are 
adjusted, the other optical components should be checked and readjusted as necessary. A 
transparent ruler placed in the beam path will show the undiffracted beams below 4.25 inches and 
the diffracted beams an equal distance above 4.25 inches. The third mirror should be adjusted to 
send the beams onto the middle of the separation prisms. Ensure that all beams enter and exit 
cleanly without striking any edges. 

2.8 Iris Diaphragms 

In normal operation, the iris diaphragm should be wide open and set close to the third 
steering mirror. The two iris diaphragms define the position of the incident laser beam. After the 
positions of all components ahead of the second iris are set, reduce laser power to a minimum and 
switch off the Bragg cell driver. The only remaining beam will normally be the undiffracted blue 
beam. Now close down the first iris, center it over the single beam, and fasten it down. Open the 
first diaphragm and close down the second one. Position the second iris so it is centered on the 
single beam and fasten it in position. Open the iris, switch on all beams and ensure that all beams 
travel through the open iris. The two iris diaphragms can now be used to pre-position the system 
if alignment is lost. 


1-8 


2.9 Separation Prisms 

Two large right angle prisms are used to further separate the diffracted and undiffracted 
(Bragged and un-Bragged) beams and direct them to the final individual prisms. The juncdon of 
the two prisms should be set to 4.25 inches up from the baseplate. Ensure that all beams travel 
through the large prisms cleanly. This is a good place to clip any unwanted short wavelength 
beams. 

2.10 Final Steering Prisms 

Each beam is picked off by a small right angle prism and directed to the fiber launching 
optics. The lower beams are 3.5 inches and the upper 5.5 inches above the baseplate. It is 
important that the final prisms be positioned so that the beams are directed squarely into the 
launching optics. Each beam should be orthogonal to the front plate which holds the launching 
optics. Transparent plastic rulers may be used to make this setting. 

3.0 FIBER OPTIC LINK 

3.1 Laser to Fiber Coupler 

The laser to fiber couplers are mounted on the outside of the front panel by 1 ”-32 mounting 
threads. The function of the couplers is to launch the laser beams into the fibers efficiently. Each 
coupler will focus its respective laser beam down to a small waist and maneuver the single mode 
fiber to the image plane of the lens system. The coupler (Fig. 4) is comprised of two baseplates, 
each with an axial bore, with an O-ring sandwiched between. Lateral (radial) movement across the 
beam is accomplished by adjustment of the three small socket-head screws which compress the 
outer baseplate against an O-ring. The clearance holes for the three socket head screws in the outer 
plate are slightly oversized to allow some lateral movement when the screws are loose. Final 
precision adjustment and stability is provided by another three screws which push against the inner 
baseplate in opposition to the compressing screws. Z axis adjustment along the beam waist is 

provided by a fine threaded adjustment, which is locked down with a set screw. 

3.2 Laser to Fiber Coupler Alignment 

The procedure described applies to each beam and coupler. 

WARNING 

KEEP LASER POWER LOW UNTIL 
ALL COUPLERS ARE ALIGNED TO 
PREVENT BURNING FIBER CLADDING. 
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ADAPTER 


Figure 4 High Power Laser to Fiber Coupler 


Operating the laser at low power, first center the beam in the front plate hole using a 
transparent plastic ruler or template, then screw in the coupler. Project the expanding laser beam 
onto a flat black screen one or two feet away. Slightly loosen the screws which hold the inner and 
outer coupler plates together to allow lateral movement. Displace the coupler disc by hand while 
observing the projected beam on the opaque screen. Tighten the screws in the position where the 
beam intensity is centered and symmetric. This aligns the lens axis with the beam, increasing 

coupling efficiency. 

Insen the 50 micron multi-mode fiber into the coupler and set the fiber output in a position 
to project light onto an opaque screen (Fig. 5). Identify the three screws which pull the coupler 
plates together. The tilt mechanism will displace the fiber core laterally relative to the image at the 
focal plane. As the focused image nears the center of the core, lower numerical aperture (N.A.) 
modes will be excited and more light will be concentrated into the center of the output spot 
(Fig. 5b). This will occur only under launching conditions where the N.A. of the focused rays is 
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smaller than the N.A. of the fiber. Using the small ball driver, adjust capscrew 1 while observing 
the output. The distribution of light in the output should change. Try to concentrate most of the 
light into the center of the spot by rotating the capscrew. Adjust capscrew 2 and continue to 
concentrate more and more light into the modes closest to the center of the spot. Repeat with 
capscrew 3. Sequentially adjust each screw for the maximum light coupling while steadily pulling 

the coupler tighter. 

When the coupler is quite tight and adjusted for maximum coupling, replace the multi-mode 
fiber with a single-mode fiber and optimize for maximum coupling efficiency. An optical power 
meter should be used for the final adjustments. At the focal plane, where the fiber is located, there 
are multiple maxima due to diffraction (Airy discs). If the maximum light coupled is very low 
(<10% of input) it might be that a side order maxima is positioned on the fiber core. While 
watching the power meter, tilt each of the screws sufficiently to verify that the most powerful 
maximum is being coupled into the fiber. 

If coupling efficiency is still low, the Z-axis may need some adjustment. The easiest way 
to verify that the Z-axis does need adjustment is to loosen the FC type fiber optic connector (FC 

connector) a tum and pull the fiber back from the focal plane. Then slowly tighten the FC 
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connector while watching the power meter to identify the position where the maximum coupling 
efficiency occurs. The aim is to peak coupling at the point when the FC connector is tight. If Z 
axis adjustment is necessary, alignment may be maintained by making exact 360 degree 
adjustments; that is, loosen or tighten the Z axis by exactly one turn. If alignment is lost or if more 
than a minor adjustment is necessary, the multi-mode fiber should be installed initially. If 
significant adjustment is necessary, the procedure described in the section on preliminary Z-axis 
adjustment should be followed. 

3.3 Preliminary Z-Axis Adjustment 

The Z-axis is pre-adjusted and this procedure should not normally be required. If 
adjustment becomes necessary, the procedure is to adjust the coupler as you would a collimator. 
Couple light into a fiber. Install the launching coupler on the output end of the fiber. Loosen the 
radial set screws which secure the Z-axis ferrule. Project the beam onto an opaque screen and 
adjust the Z-axis ferrule until you get a minimum diameter collimated beam at some distance. The 
lens is now positioned so that the fiber is at its focal plane. The coupler is now set up to launch a 

collimated input beam when used as a laser to fiber coupler. 

3.4 Polarization Axis Adjustment 

The single mode fibers provided with this system are highly birefringent, polarization- 
maintaining fibers, generally with two perpendicular principal axes. By maintaining polarization in 
the fibers we are able to match the polarization of the beam pairs in the measurement volume. 

Also, the output of properly aligned polarization-maintaining fiber will not fluctuate when the 
fibers are moved or manipulated. Polarization is maintained only when the polarization axis of the 
light is matched with that of the fiber. Improper alignment will cause the Output polarization state 
of the fiber to oscillate between elliptical and linear polarization states. The polarization of the light 
can be rotated using a half wave plate placed ahead ot the launching optics to match the orientation 
of the fiber or the fiber can be rotated to match the polarization orientation of the light. 

Polarization alignment of fibers is measured by determining the extinction ratio of the 
output. First align the coupler for best coupling efficiency. Measure the fiber output through a 
polarizer with a light powermeter. Rotate the polarizer until maximum light transmission through 
the polarizer is achieved. Record this value. Rotate the polarizer until the minimum output is 
achieved and record the powermeter reading. Calculate the difference (extinction ratio) between the 
maximum and minimum readings in dB. Then rotate the knurled section of the fiber connector 
(Fig. 6) very slightly and repeat the procedure. Continue to rotate the fiber connector until the 
extinction ratio is maximum. Extinction ratios of 20 to 35 dB should be achieved. As mentioned 
above, a half wave rotator placed ahead of the launching optics in a rotary mount can easily set the 
light polarization to match the principal axis of the fiber. Placed in position temporarily, a half 
wave rotator can be used to help determine if the best polarization matching has been achieved or 
approximately how much adjustment is required. When the best extinction ratio has been 
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achieved, press or bend the fiber slightly, which may result in a small change in the power output 
after the polarizer. If the change is less than a few dBs, the polarization axes are aligned. Ideally, 
there should be no change. If the change is more than a few dBs, then rotate the fiber connector 

slightly until the required extinction ratio is achieved. 

When the fiber is rotated, if an increase in insertion loss is noticed, it is due to fiber core / 
cladding concentricity problems. In lens style couplers, this could be compensated for by 
adjusting the angle between the incoming collimated beam and the receiver lens. Adjustment as 
described above in the previous section should be performed. 



SLOT 

\ 



Figure 6 Polarization Preserving Connector. 

Once the polarization axes have been properly set, the connectors may be glued to fix them 
in position. Loctite 290® for preassembled fasteners, Duco® cement or instant glue may be used. 
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4.0 FIBER COLLIMATORS AND TRANSMITTING OPTICS 


A fiber collimator is very similar in design to a laser to fiber coupler. Collimator length is 
proportional to the output beam diameter desired. The output beam is collimated by releasing the 
set screw(s) and adjusting the Z-axis, which is the distance from the fiber output to the collimating 
lens. This is best done before the collimator is attached to the mounting plate. Direct the beam 
some distance away and adjust the Z-axis until the best collimation is achieved. 

With the output of each collimator set, they are attached to the mounting plate with three 
screws and an o-ring. To set the four beams mutually parallel, set the mounting plate in its 
mounting ring in a stand on the optics table. Set up a 60 mm template at the same height several 
feet away. Adjust each collimator to steer its beam onto the appropriate spot. The three mounting 
screws on each collimator should be quite snug. When adjustment is complete, tighten the three 
locking screws while checking that alignment is maintained. Repeat the procedure for the other 
mounting plate. 

Fasten the collimator plate into the 1 (X) mm l.D. mounting ring, then to the rail. The 
rhomboid beam separation reducer should be fastened to the rail ahead of the collimator plate. The 
beam separation used for this application was .3 1 25 inches. Ensure clean passage of the laser 

beams through the rhomboids. Lastly, the focusing lens should be attached to the rail. 


WARNING 

WEAR LASER SAFETY EYEWEAR. 

BEWARE OF SPECULAR REFLECTIONS. 

Using a Polaroid filter, check that polarization of each beam pair is matched. Output 
polarization is set by rotating the knurled ring on the FC connector (Fig. 6). The fiber axis and 
beam polarization at the fiber input should have been matched already, as described above in the 
section on polarization axis adjustment. 

With a clear plastic ruler, check that all beams cross at the focal point of the converging 
lens. Be sure to use appropriate eye safety precautions. Place a microscope objective or eyepiece 
in the beams to project the crossover point. Move the eyepiece axially along the beams. Each 
beam should be waisting at the focal volume. Use the Z-axis adjustment of each collimator to set 
the beam waist. Notice that the tightness of the FC connector at the collimator affects the 
collimation and thus the beam waist somewhat. 

Each beam pair should be crossing fully without shearing and all pairs should cross 
together. For fine adjustment use the three screws on each collimator which press the plates apart. 
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5.0 COLLECTING OPTICS 


The scattered light collection lens should be positioned for optimum forward scatter 
collection. A thin scattering center such as a piece of tape should be placed near the center of the 
proposed scan and the collecting optics driven and adjusted to focus the collected light into the 
multi-mode fiber. Direct the output of the multi-mode fiber onto a flat black surface. When the 
fiber is at the focus of the collecting optics, the center of the projected fiber output is illuminated. 
If the fiber is not located at the focus, there will be a bright ring around the outer edge of the 

illuminated area. 



Figure 8 Collected Light Color Separation and Signal Detection System. 

6.0 COLLECTED LIGHT COLOR SEPARATION SYSTEM 

Figure 8 illustrates the layout for the collected light color separation and signal detection 
system. The multi-mode fiber collimator is adjusted in a similar fashion to the single mode unit. 
To set beam collimation, the set screw on the shaft is loosened and the distance from fiber end to 
collimating lens is varied while viewing the beam size at some distance. The collimator is then 
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screwed into the color separation box using the threaded 1 ”-32 hole. The collimated beam is 
directed through a pair of dense flint dispersion prisms to a right angle prism, which reverses the 
beam to travel through the dispersion prisms a second time at a slightly lower level. Another right 
angle prism directs the diverging colors through sets of light baffles to the final steering prisms 
which send each color to its photo-multiplier tube. 

The dispersion prisms are fixed to their mount. During initial alignment, the dispersion 
prism pair, together with the direction reversing right angle prism, were positioned to provide the 
greatest dispersion with unclipped beams. If a component is knocked out of alignment, the best 
course is usually to leave the other components undisturbed and replace and adjust that component 
until proper orientation is again achieved. 
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1.0 INTRODUCTION 


The NASA Ames Research Center 3.5 Foot Hypersonic Wind Tunnel Laser Doppler 
Velocimeter System provides the capability to acquire and process simultaneous analog data and 
two-component Laser Doppler Velocimeter (LDV) data. The system consists of the following five 

sub-systems: 

1 . LDV Signal Conditioning Instrumentation. 

2. LDV Counter Signal Processor Instrumentation. 

3 . Laser Velocimeter Data Acquisition System (LVDAS). 

4. Data Acquisition, Data Reduction, and Data Presentation 
Computer System. 

5. Traverse Control System (TCS8). 

This document will discuss the theory of operation of the LVDAS and the LDV Counter 
Signal Processors as well as provide sources of documentation drawings for these instruments. 

The manner in which they are connected to and interact with each of the other optical and electronic 
sub-systems listed above will also be included. Figure 1 shows the configuration setup of the 
Laser Doppler Velocimeter system. This shows how the LVDAS fits into the complete system. 

1.1 LDV Signal Conditioning Instrumentation. 

Figure 2 shows the signal conditioning that is applied to the two-component Laser Doppler 
Velocimeter signals, the tunnel static temperature signal, and other optional analog voltage signals. 
The tunnel static temperature voltage output is fed directly to the first analog input channel of the 
LVDAS. Other optional analog voltage outputs can also be fed directly to one of the analog inputs 

of the LVDAS. 

The LDV signal conditioning instrumentation is composed of the following elements: 

1 . RF Amplifier. 

2. Frequency Filter. 

3 . Macrodyne LDV Counter Processors. 

The voltage outputs of each RF amplifier are fed directly to the inputs of the Macrodyne LDV 
Counter Processors. The 16bit digital outputs of the two Macrodyne LDV Counter Processors are 
connected directly to the digital inputs of the LVDAS. The LVDAS is described in Section 2 while 
the Macrodyne LDV Counter Processors are described in Sections 3 and 4. 
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Figure 1 . Laser Velocimeter System Configuration. 













2.0 LASER VELOCIMETER DATA ACQUISITION SYSTEM, 


New applications in laser velocimetry have brought about the need for a more advanced 
laser velocimeter data acquisition system. These new applications require high data rates that are 
not hindered by on-line time dependent data sorting and real time graphic data presentation. The 
new Laser Velocimeter Data Acquisition System (LVDAS) was designed specifically to meet these 
advanced requirements. 

The Laser Velocimeter Data Acquisition System (LVDAS) provides the capability to 
acquire, process, and present real time digital data and analog data. The digital, for LDV systems, 
is typically the output of LDV signal processors. The analog data, for hypersonic wind tunnels, 
might include the raw signals containing tunnel temperature and/or pressure. The output of a filter 
amplifier whose input comes from flow sensors, such as a hot wire, might also be acquired with 
the LDV data. Additional analog data might originate from such sources as temperature probes, 
position sensors, etc. A functional schematic diagram of the LVDAS is shown in Figure 3. The 
LVDAS acquires simultaneous digital data, analog data, and time information data. The data are 
sampled, multiplexed, buffered, and then transferred to the facility’s host computer for further data 
reduction, analysis, and presentation. 

The digital data are sampled in a manner which ensures that the required coincidence time 
criterion is met. This is achieved by comparing 32bit 10MHz time of arrival counters for each of 
the digital channels. If data arrives on all of the selected digital channels within the coincidence 
time, then the analog channels are immediately sampled and converted. Otherwise, the digital data 
are rejected and the process is repeated. The 16 bit word parallel input ports are provided to accept 
the digital output of LDV counter processors and/or other instrumentation. High data acquisition 
rates are achieved by providing a separate latched input for each laser velocimeter digital input and 
a separate converter for each temperature, pressure, hot wire sensor or other analog input. The 
system will allow for data acquisition rates of approximately 100,000 samples per second 
simultaneously on each of the laser velocimeter and analog inputs. 

A 32 bit time of day (TOD) 10MHz counter is used to tag arrival times to acquired digital 
LDV data as they become available on each of digital inputs. When a data valid ‘ sync pulse is 
sensed for a particular channel, the LVDAS latches the current TOD into a 32 bit time of arrival 
register (TOA). A separate TOA register is available for each digital input, so that particle arrival 
times of measured velocity information for U,V, and W can be monitored for coincidence. The 
latched times of arrivals have a resolution of 100 ns and maximum time of over 7 minutes. 

The coincidence control logic allows for up to 3 channel coincidence. The coincidence time 
can be adjustable to any resolution or duration within the capability of the time of arrival registers. 
The coincidence time is adjustable from 100 ns to 1 s. In addition to the laser velocimeter inputs, 
three additional data words are generated internally. They are the inter-amval time, the coincidence 
time, and status words. The inter-arrival and coincidence time is provided by a clock whose 
resolution is 100 ns and the maximum elapsed time is over 7 minutes. The status word contains 
information about coincidence which indicates whether or not valid data have been acquired. 
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Figure 3. Laser Velocimeter Data Acquisition System. 



When coincident criteria are met, the analog inputs can be sampled and converted to 
provide concurrent data with the digital data. A single time of arrival is latched for all each of the 
analog to digital inputs, since they are all sampled and converted simultaneously. Additionally, a 
time of arrival is latched for external events, if they occur. These might be derived from such 
sources as oscillating models or model surfaces, rotating helicopter blades, rotating engine fans, or 
flow sensors. 

All of the acquired digital velocity data with corresponding time of arrival data can be 
processed and stored even if coincidence is not required. However, if coincident data are required, 
then the arrival time of the various channels can be conditionally accepted if they all occur within a 
finite window of time. These coincident events can then be assigned inter-amval times, which 
represent elapsed time since the previous event. 

During data acquisition, it is important that the user obtain some visual feedback about the 
data being acquired. This is necessary so that the user can make informed decisions about both the 
quality and quantity of data received. The user is either reassured about the quality of the data or 
can make alterations and improvements in technique while “on line . To help achieve this, the 
instantaneous velocities are used to generate real time histograms from which probability density 
distributions are determined for all velocity components. 

Additionally, the laser velocimeter data acquisition system has the capability of reducing the 
raw laser velocimeter data. Each laser velocimeter output contains the information required to 
calculate the instantaneous velocities. From the instantaneous velocity determinations, the average 
velocities, turbulence levels, and the turbulence cross correlations are all to be calculated. 

All digital Macrodyne data, optional digital data, analog to digital data, and time of arrival 
data can be sent by the LVDAS to other computers via two serial and two parallel input/output 
ports. One parallel port will be used for the LDV system’s data acquisition computer while the 
other can be used by the facility host computer. The serial ports can be used by PC type computers 
such as IB Ms or MACs. 

2.1 Analog Data Description. 

The analog inputs are provided to accept differential voltages from such sources as hot 
wires, temperature probes, pressure probes, and other such sensors and/or instrumentation. The 

inputs are differential inputs and accept ±5 volts. 

The inputs are sampled and converted at a rate 200KHz with 16 bit resolution. The 
converted raw data (16 bit word) are encoded into signed two’s complement binary format. 
Examples of the raw data to voltage conversion is shown on the next page. 
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msb BINARY 

WORD 

lsb 

INTEGER 

VOLTAGE 

0111 

1111 

1111 

1111 

32767 

+ 4 . 99985 

0111 

1111 

1111 

1110 

32766 

+4 . 99969 

11 

u 

11 

11 

U 

11 

0000 

0000 

0000 

0001 

1 

+0.00015 

0000 

0000 

0000 

0000 

0 

0.00000 

1111 

1111 

1111 

1111 

-1 

-0.00015 

11 

11 

11 

11 

11 

11 

1000 

0000 

0000 

0001 

-32767 

-4.99985 

1000 

0000 

0000 

0000 

-32768 

-5.00000 



One Bit Resolution 

: 0.00015 


The signed binary two’s complement integer word can be converted to a real precision 
floating point voltage using the following equation. 



5A r 

2 15 


volts 


Where A R is the analog raw voltage and A v is the converted analog voltage. 


2.2 Digital Data Description. 


Three digital inputs are provided to accept 16bit digital data from such sources as LDV 
counter signal processors and/or instrumentation. The format for the Macrodyne Counter Signal 
Processors, which are being used with this system, will depend on whether or not the old or new 
model Macrodynes are used. The old models provide 16 bits of frequency information on a DB 
type 25 socket connector. The new models provide 1 8 bits of frequency information on a DB type 
37 socket connector. The data formats and cable schematics for the old models are included in 
Section 3. The data formats and cable schematics for the new models are included in Section 4. 
(Note: The new model Macrodynes were delivered with the two-component LDV system. 
Therefore, the description of the “New Model Macrodynes” in section 4.0 and the cable schematic 
shown in Figure 6 would apply to this system.) 
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3.0 OLD MODEL MACRODYNES, 


This chapter describes the data format of the old model Macrodyne’s digital output port. 

Also described are the equations necessary to convert the raw data into frequency which represents 
the rate of fringe crossings of the Doppler burst. Additionally, a detailed description and schematic 
drawing is provided for the Macrodyne to LVDAS interface cable (see Figure 5). Figure 7 is a 
timing diagram showing the handshaking sequence of the control lines. Figure 7 also shows the 
timing sequence of the data lines. This indicates when the data become valid and then later latched. 

3.1 Data Format. 

The old model Macrodyne LDV counter signal processors provide the digital frequency 
output in the following 16 bit format: 

MSB LSB 

15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0 

TIME 5/8 X3 X2 XI X0 D9 D8 D7 D6 D5 D4 D3 D2 D1 DO 

The mantissa (D9..D0) is contained within the lower 10 bits of the 16 bit word while the exponent 
(X3..X0) is contained within bits 10 through 13. The number of fringes measured is defined as 8 
if 5/8=1 or 16 if 5/8=0. The time bit tells whether the mantissa and exponent represent a period 
(TIME=0) or a velocity (TIME=1). The period of the Doppler frequency is measured by the 
number of clock pulses (C=500MHz or 1000MHz) that are required to sense 8 or 16 fringe 
crossings. 

The one bit 5/8 bit is set by the front panel 5/8 - 10/16 switch. It specifies whether 8 or 16 
fringes are to be measured by the counter processor. The one bit TIME bit is set by the front panel 
Time/Velocity switch. It specifies one of two encoding schemes used by the Macrodynes to 
represent the frequency data. 

The logic level for each of the old model Macrodynes varies with different units. Each unit 
may have a mixture of positive true or negative true logic for the TIME, 5/8, X3..X0, and D9..D0 
rtata pins on the digital output port. Typically, when one orders multiple units, they all come 
configured with the same logic. But, units ordered at a later date may have a different mixture of 
positive true and negative true logic on the digital output port data pins. 

3.2 Frequency Mode. 

If TIME=0 then the data represent the time that had elapsed while a specified number of 
fringe crossings were observed by the counter processor. The elapsed time is encoded into a 10 bit 
mantissa (D9..D0) and 4 bit exponent (X3..X0). Both the mantissa and the exponent are in 
unsigned binary format. 
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3.3 Velocity Mode. 


If TIME=1 then the data represents the frequency of the observed doppler burst. The 
frequency information is encoded into a 14 bit concatenation of the 4 bit exponent (X3..X0) and 
the 10 bit mantissa (D9..D0). The resulting 14 bit frequency word (X3..X0 D9..D0) is in 
unsigned binary format. 

3.4 Macrodyne Front Panel Digital Output Pinouts. 


The pinout assignment for the old model Macrodynes is shown in the first column of 
Figure 4. 

3.5 Interface Cable Schematic and Handshake Timing Diagram. 


Figure 5 shows a detailed schematic drawing for the Macrodyne to LVDAS 16bit parallel 
data interface cable. Figure 7 is a timing diagram of the handshake processes that happen each time 
data are transferred from the Macrodyne to the LVDAS. 

3.6 Data Reduction. 


The following sections describe how to convert the raw data into useful period or 
frequency data. The raw data are encoded into the 5/8 fringe count bit, 4 bit X3..X0 period 
exponent, and 10 bit D9..D0 period mantissa. 

3.7 Period Calculation 


The time T for the selected number of fringes can be calculated using the following 
equation. (Note: T is the time for the entire measured burst of 8 or 16 fringes.) 

T=M2 (E ' 2) ns 

Where M is the mantissa bits D9 through DO and E is the exponent bits X3 through X0. To 
determine the doppler period for 8 fringes (T 8 ) and for 16 fringes (T 1 6 ) the following equations 

would apply. (Note: Both T 8 andT 16 are the average time for only one fringe of the entire 

measured burst of 8 or 16 fringes.) 
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_M2 (e ~ 2) 

8 2 3 10 9 

_M2 (e ' 2) 

16 2 4 10 9 

3.8 Frequency Calculation 

The doppler frequency can be calculated using one of the following equations depending on 
whether 8 of 16 fringes were measured. 

F 1 _2 3 10 9 

8 T 8 M2 (E - 2) Hz 

F 1 _2 4 10 9 

16 T 16 M2 (E ' 2) Hz 

3.9 Velocity Mode Frequency Calculation 

The Macrodyne manuals provide no information as to the conversion of the raw velocity 
mode data into useful frequencies of velocities. Therefore, no equations are provided here for raw 
data to frequency conversion. This data format is not used at the present time. 
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This chapter describes the data format of the new model Maciodyne’s digital output port. 
Also described are the equations necessary to convert the raw data into frequency which represents 
the rate of fringe crossings of the Doppler burst. Additionally, a detailed description and schematic 
drawing is provided for the Macrodyne to LVDAS interface cable (see Figure 6). Figure 7 is a 
timing diagram showing the handshaking sequence of the control lines. Figure 7 also shows the 
timing sequence of the data lines. This indicates when the data become valid and then later latched. 

4.1 Data Format. 

The new model Macrodyne LDV counter processors provide frequency information in a 
similar format to the old models. New model Macrodyne LDV counter signal processors provide 
the digital frequency output in the following 18 bit format: 

MSB LSB 

17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0 

TIME 5/8 X3 X2 XI XO Dll DIO D9 D8 D7 D6 D5 D4 D3 D2 Dl DO 

The mantissa (Dl 1..D0) is contained within the lower 12 bits of the 18 bit word while the 
exponent (X3..X0) is contained within bits 12 through 15. The number of fringes measured is 
defined as 8 if 5/8=1 or 16 if 5/8=0. The time bit tells whether the mantissa and exponent 
represent a period (TIME=0) or a velocity (TIME=1). The period of the Doppler frequency is 
measured by the number of clock pulses (C=500MHz or 1000MHz) that are required to sense 8 or 

16 fringe crossings. 

The major difference is that the addition of two more mantissa bits (Dl 1 and DIO) to 
provide increased dynamic range for a fixed exponent. The equations for determining T, T8, T16, 
F8, and F16 would be identical to those illustrated in the previous section. However, DO and Dl 
are ignored, since the current LVDAS digital interface provides for 16 input lines. Therefore, the 
following 16 bit format is actually transmitted to the LVDAS. 

MSB LSB 

15 14 13 12 11 10 9 8 76543210 

TIME 5/8 X3 X2 XI XO Dll DIO D9 D8 D7 D6 D5 D4 D3 D2 

The one bit 5/8 bit is set by the front panel 5/8 - 10/16 switch. It specifies whether 8 or 16 
fringes are to be measured by the counter processor. The one bit TIME bit is set by the front panel 
Time/Velocity switch. It specifies one of two encoding schemes used by the Macrodynes to 
represent the frequency data. 
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4.2 Frequency Mode. 


If TIME=0 then the data represent the time that had elapsed while a specified number of 
fringe crossings were observed by the counter processor. The elapsed time is encoded into a 12 bit 
mantissa (Dll. .DO) and 4 bit exponent (X3..X0). Both the mantissa and the exponent are in 
unsigned binary format. 

4.3 Velocity Mode. 

If TIME=1 then the data represents the frequency of the observed doppler burst. The 
frequency information is encoded into a 16 bit concatenation of the 4 bit exponent (X3..X0) and 
the 12 bit mantissa (D1 1..D0). The resulting 16 bit frequency word (X3..X0 D1 1..D0) is in 
unsigned binary format. 

4.4 Front Panel Digital Output Pinouts. 

The pinout assignment for the old model Macrodynes is shown in the second column of 
Figure 4. 

4.5 Interface Cable Schematic and Handshake Timing Diagram. 

Figure 6 shows a detailed schematic drawing for the Macrodyne to LVDAS 16bit parallel 
data interface cable. Figure 7 is a timing diagram of the handshake processes that happen each time 
data are transferred from the Macrodyne to the LVDAS. 

4.6 Date Reduction. 

The following sections describe how to convert the raw data into useful period or 
frequency data. The raw data are encoded into the 5/8 fringe count bit, 4 bit X3..X0 period 
exponent, and 12 bit D1 1..D0 period mantissa. 

With the deletion of the D1 and DO the mantissa M would be represented by D1 1..D2 
instead of D1 1..D0 and equations for T, T 8 , T, 6 , F 8 , and F, 6 would be modified as shown in 
Sections 4.7 and 4.8. 

4.7 Period Calculation 


T=M2^ E ' 0) 


ns 


m _M2 (E ~ 0) 

8 2 3 10 9 

_M2 (e ~ 0) 

16 2 4 10 9 

4.8 Frequency Calculation. 

F 1 _2 3 10 9 
8 T 8 M2 (e -°> 

F 1 2 4 10 9 
16 T 16 M2 (e -°> 


4.9 Velocity Mode Frequency Calculation. 

The Macrodyne manuals provide no information as to the conversion of the raw velocity 
mode data into useful frequencies of velocities. Therefore, no equations are provided here for raw 
data to frequency conversion. This data format is not used at the present time. 
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Figure 4. Macrodyne Digital Output Port Pinouts. 


2-16 




Figure 5. Old Macrodyne to LVDAS Interface Cable Schematic Drawing 
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Figure 6. New Macrodyne to LVDAS Interface Cable Schematic Drawing. 
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Figure 7. Macrodyne to LVDAS Interface Handshake Timing Diagram. 
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1.0 DATA ACQUISITION COMPUTER HARDWARE DESCRIPTION, 


A simplified schematic drawing of the computer hardware is shown in Figure 1. The 
Figure also shows the how computer hardware interconnects with the Traverse Control System 
(TCS8) and the Laser Velocimeter Data Acquisition System (LVDAS). The data acquisition, data 
reduction, and data presentation computer system hardware was comprised of the following 
elements: 

1 . A Hewlett-Packard Series 9000 Model 375 Computer. 

2 . A System Interface Board. 

3 . A General Purpose Input/Output High Speed Interface. 

4 . Integral Hard Disk and Floppy Disk Drives. 

5 . Paint Jet Printer. 

1.1 Hewlett-Packard Series 9000 Model 375 Computer. 

The HP Series 9000 Model 375 computer was used to control the traverse system, acquire 
LDV data, perform data reduction and analysis, present the reduced data in graphical form, and to 
store the raw and reduced data on hard disk. 

1.2 System Interface Board. 

The system interface board possesses multiple serial and parallel interfaces. A normal 
IEEE-488 HPIB interface is used to send data to the Paint Jet printer. A high speed IEEE-488 
HPIB interface is used to read data from and write data to the integral 40MByte Hard Disk and 
Floppy Disk Drives. The RS-232 serial interface is used to send commands as well as to send and 
receive position information from the Traverse Control System (TCS8). 

1.3 General Purpose Input/Output High Speed Interface. 

The General Purpose Input/Output (GPIO) High Speed Parallel Interface is used to send 
commands to the Laser Velocimeter Data Acquisition System (LVDAS). The LVDAS subsequently 
transmits back LDV data over this GPIO interface to the HP 9000-375 Computer. 

1.4 Integral Hard Disk and Floppy Disk Drives. 

The hard disk is partitioned into volumes. One volume contains system related files and the 
data acquisition program. The system files include the BASIC operating system and initialization 
programs that configure the computer, CRT display, and keyboard. The data acquisition program, 
which also resides on this volume, is automatically loaded and executed as part of the computers 
“power up” sequence. Another volume is used to store raw and reduced data for archival purposes 

and for future data reduction and analysis. 

1.5 Paint Jet Printer. 

The Paint Jet printer is used for listing programs and to print reduced data in tabular form. 
Additionally, graphs are “dumped” to provide a hard copy of histogram and profile plots. 
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Figure 1 . Laser Velocimeter System Configuration. 




2 0 nATA ACQUISITION COMPUTER SOFTWARE DESCRIPTION. 


The software used to control the traverse system and acquire tunnel data is listed in 
Appendix A and Appendix B of this report. Appendix A contains a catalog of the back-up floppy 
disk containing the system files and the data acquisition program named “3.5 HWT91 . The 
system file “SYSB60” contains the BASIC 6.0 operating system. The “AUTOST” program is 
loaded and executed as part of the computer’s “power up” sequence. This “AUTOST program 
sets default values for the CRT and keyboard and then automatically loads and executes the 
“3.5’HWT91” program. Appendix A also contains a hardcopy listing of this 3.5 HWT91 
program. This program is the original program that was used to acquire data during the hypersonic 
wind tunnel testing. 

Appendix B is essentially a revised version with documentation of the program in 
Appendix A. The documentation is integrated into the code and includes information on how to 
boot the system and software. How to operate the menu driven software is also described. The 
documentation for the main program, each sub-routine, and each sub-program includes a 
description of the software, its purpose, and a list of variables with definitions. Appendix B 
contains a catalog of the back-up floppy disk containing the system files and the data acquisition 
program named “3.5’HWT92”. The system file “SYSB60” contains the BASIC 6.0 operating 
system. The “AUTOST’ program is loaded and executed as part of the computer’s “power up 
sequence. This “AUTOST’ program sets default values for the CRT and Keyboard and then 
automatically loads and executes the “3.5’HWT92” program. Appendix B also contains a 

hardcopy listing of this “3.5 ’HWT92” program. 

The following parts of Section 2 of this chapter contain a brief description of the data 

reduction applied to the raw data acquired by the “3.5’HWT’ programs. A more complete set of 
documentation on the data reduction as well as coordinate system transformations can be found in 
Appendix C. Other topics are documented within the software code listing itself (refer to Appendix 
B for this software code listing.) 

2.1 Instantaneous Velocities, Voltages, and Temperatures. 


The following are the instantaneous velocities ( Ui, Vi ) which are derived from the digital 
data outputted from the Macrodyne counter signal processors. All velocities are measured in 
meters/second (m/s). 


Ui : Instantaneous Streamwise Velocity. 
Vi : Instantaneous Vertical Velocity. 
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The following are the instantaneous voltages ( Ai, Bi ) for the first two analog channels. 

All analog inputs are measured in volts (v). 

Ai : Instantaneous Voltage on Analog Channel #1 . 

Bi : Instantaneous Voltage on Analog Channel #2. 

The following is the stagnation temperature ( Ti ) which is inputted from the first analog 
channel ( Ai ). The temperatures are measured in degrees Rankine (°R). 

Ti : Instantaneous Stagnation Temperature. 

2.2 Velocity, Voltage, and Temperature Averages. 

The instantaneous velocities ( Ui, Vi ), the instantaneous voltages ( Ai, Bi ), andthe^ 
instantaneous stagnation temperatures ( T i ) are summed so that the average velocities ( U, V ), the 
average voltages ( A, B ), and the average stagnation temperature ( T ) can be calculated. All 
velocities are measured in meters/second (m/s), all analog inputs are measured in volts (v), and the 
stagnation temperature is measured in degrees Rankine (°R). 

U : Average Velocity (Streamwise). 

V : Average Velocity (Vertical). 

A : Average Voltage (Analog Channel #1). 

B : Average Voltage (Analog Channel #2). 

T : Average Stagnation Temperature. 



m/s 


m/s 
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2.3 Velocity, Voltage, and Temperature Standard Deviations. 

The velocity ( u • , V • ), voltage ( A \ B ' ), and stagnation temperature ( T ' ) standard 
deviations are defined as shown here: 

U ' : Velocity Standard Deviation (Streamwise). 

V ' : Velocity Standard Deviation (Vertical). 

A ' : Voltage Standard Deviation (Analog Channel #1). 

B ' : Voltage Standard Deviation (Analog Channel #2). 

T ' : Stagnation Temperature Standard Deviation. 

The following equations can be used to calculate the velocity ( U ' , V ’ ), voltage ( A ' , B ' ) 
and stagnation temperature ( T ' ) standard deviations: 






The above equations are simplified to produce the following equations. The 
instantaneous velocities ( U lf V, ), voltages ( A lf B, ), and temperatures ( T 4 ) are summed so that 
velocity ( U • , V ■ ), voltage ( A ’ , B ' ), and stagnation temperature ( T ’ ) standard deviations can 
be calculated. All velocity standard deviations are measured in meters/second (m/s), all voltage 
standard deviations are measured in volts (v), and all temperatures are measured in degrees 
Rankine (°R). 


U' = 



m/s 
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The equations are simplified to these forms so that the software can compute summations 
of the instantaneous velocities, voltages, and temperature as well as the summations of their 
squares within the same software loop. This eliminates the need to calculate the difference 

values ( Ui-u , Vi-v , Ai-A , Bi-I , Tt -T ). Also, the need to calculate the averages before the 
squared summations is removed. 

2.4 Velocity, Voltage, and Temperature Cross Correlations. 

The velocity:velocity shear stress ( U’V' ), velocity:voltage cross correlations 
( u ' A’ , v ' A ' ), and voltage:voltage cross correlations ( A ' B 1 ) are defined as shown here. 

U ' V 1 : Velocity:Velocity Shear Stress. 

U 1 a ' : Velocity:Voltage Cross Correlation, 
v ' a ' : Velocity:Voltage Cross Correlation. 

A ' b ' : Voltage:\bltage Cross Correlation. 

The following equations can be used to calculate the shear stress and the cross correlations 
( U 1 V 1 , U ' A 1 , V » A ' , A ’ B ' ): 

X [(Ui-uHVi-v)] 

ft rr^/s 2 

X [(Ui-uKAi-A)] 

i=l 

n mv /s 


U 1 V' = 


U' A' = 
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The above equations are simplified to produce the following equations. Summations of the 
instantaneous velocity and voltage ( Ui, Vi, Ai, Bi ) products are summed so that velocity:velocity 
shear stress ( U ' V ' ), velocity: voltage cross correlations ( U ' A * , V ' A ’ ), and voltage: voltage 
cross correlation ( A ' B ' ) can be calculated. All velocity:velocity shear stresses are measured in 
meters 2 /second 2 (m 2 /s 2 ). All velocity:voltage cross correlations are measured in 
meters* volts/second (mv/s). All voltage:voltage cross correlations are measured in volts (v ) . 


U'V'^ i=i 


i [UiVj 


U ’ A i=i 


n 

I [UiAj 


V 1 A i-i 


n 

I [ViAj 


A'B'= i-i 
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I [AiBj 
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U V 
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trf/s 2 
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The equations are simplified to this form so that the software can compute summations of 
the instantaneous velocities and voltages ( Ui, Vi, Ai, Bi ) as well as the summations of their 
products within the same software loop. This eliminates the need to calculate the difference values 

( Ui-u , Vi-v , Ai-A , Bi-I ). Also, the need to calculate the averages before the product 
summations is removed. 
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Figure 3. LVDAS Interface Circular Connector Pinout Positions. 
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GPIO Interface 
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Figure 4. HP Series 9000 Model 3xx 


HP9000 MODEL 3XX 
GPIO Interface 
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Parallel Interface 



LVDAS Interface Cable Labels. 
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4.0 HP Qflflfl MODEL 375 TO LVDAS RS-232 SERIAL I/O INTERFACE. 


HP Series 9000 Model 375 
to 

LVDAS 

Serial Interface Cable 



Cable Label 


*07? 



LVOAS 


Figure 5. HP Series 9000 Model 375 to LVDAS Serial Interface Cable. 
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Figure 6. HP Series 9000 Model 375 to TCS8 Serial Interface Cable. 
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1.00 THF. TRAVEP SF CONTROL SYSTEM 

The traverse control system is made up of four sub-systems, see Fig. 1. The ^st sub 
system is the main data taking computer (host computer). The second sub-system, the TCS8 
(Traverse Control System 8 Axis), receives high level traverse commands from the host computer. 
The full duplex serial communications that links these two sub-systems allows the host computer 
to monitor the position and status of each axis in the system, see Section 4.00 Senal Inte ace 
Command Descriptions of the TCS8. The TCS8 can also function as a “stand alone” traverse 
controller. Through the use of the TCSS's front panel, an operator can execute all of the 
commands that the host computer can in addition the operator can control all axes in t jog m e, .see. 
Section 2.00 Front Panel Descriptions of the TCS8 and Section 3.00 Local o 
of the TCS8. The third sub-system, the MDS (Motor Drive System), is controlled solety by the 

TCS8 The TCS8 translates the high level commands from the host computer an its n pane 

into low level indexer commands, see The Compumotor AX Drive User Manual. The TCS I also 
receives encoder pulses from the traverses via the MDS. This allows the TCS8 to display real time 
position information on its front panel. The fourth and final sub-system of the ^rse cmtuo 
system is the slide, motor, encoder, and limit switches that make up each axis. A *aw,ng of each 
cable which is used to connect the traverse control system is included in Section 5.00 Traverse 

Control System Cables. 

nil 



Figure 1 NASA Ames 3.5’ HWT Traverse Control System. 
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1.01 The TCS8 


The TCS8 is a microprocessor controlled system designed to interface an operator with a 
traverse system. The operator can utilize the TCS8 through the front panel, see Section 2.00 
TCS8’s Front Panel Descriptions and Section 3.00 TCS8’s Local Command Descriptions, and/or 
with one or two host computers over serial interfaces, see Section 4.00 TCS8’s Serial Interface 
Command Descriptions. The TCS8 stores all the critical parameters of motion, for each of the 
eight axes that it controls, in non-volatile memory. The critical parameters of motion being: 
position, encoder counts per unit travel, encoder counts per motor revolution, velocity, and 
acceleration. All of these parameters may be viewed, set, and saved. The TCS8 has three modes 
of motion; absolute, relative, and jog. With absolute movements, the operator specifies the final 
location. With relative movements, a distance is specified. With jogged movements, the operator 
presses a jog key on the front panel of the TCS8 until the desired location is obtained. 

1.02 The Motor Drive System 

There are four indexer/drivers used in this system. The TCS8 communicates with the 
indexers in the MDS’s over a closed loop serial daisy chain. The 4/8 switch is located on the back 
panel of the MDS and must be set to 4, see Fig. 2. This figure also shows the location of all the 
motor, limit, and encoder connections. Channels XI, X2, Yl, and Y2 of the TCS8 control axis 1 
through 4 on the first MDS. The TCS8 Encoders connector on the back of each MDS has a 
corresponding connector of the back of the TCS8, see Fig. A3 Schematic of TCS8 Back Panel. 
The interconnecting cable is detailed in Section 5.00 Traverse Control System Cables. 

1.03 Positioning Resolution 

The indexer/drivers that are used in the MDS can drive the motors at 12,800 
steps/revolution. The encoders used on each axis are 100 pulses/revolution with quadrature 
encoding. Quadrature encoding adds a factor of 4 to the number of pulses/revolution to make this 
number 400 pulses/revolution. The final factor in the product of the resolution of an axis is the 
number of threads/inch of the lead screw. All of the axes of the traverse system have lead screws 
of 10 threads/inch. Thus, the positioning resolution of the axes with a 10 threads/inch lead screw 
is 0.00025 inches. 
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Figure 2 Schematic of Motor Drive System Back Panel. 



Figure 3 Schematic of TCS8 Back Panel. 
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1.04 T\innel Penetration of Traverse Cables 


The traverse slides for the 3.5’ LDV System are located inside the pressurized test chamber 
and the traverse electronics are located outside, in the control room (see Fig 1. of Chapter 1). The 
traverse cables are fed through an existing access port on the north-east side of the test chamber. A 
special plate was designed (see Fig. 4) to replace an existing one. Bulkhead cable clamps are used 
to seal around the cables. When tightened down, these cable clamps compress a rubber grommet 
to create a seal. The four encoder cables are fed through one cable clamp and the four limit switch 
cables through another. The four motor cables, which are a larger diameter, are each fed through 

their own cable clamp. 





Cable Clamp - Feed Through 


1 / 2 ' 


"-1 r 



Figure 4 Tunnel Penetration Plate. 




2.00 FRONT PANF.r DESCRIPTION OF THE TCSft 



Figure 5 The Front Panel. 


2.01 Position Display Windows. 

There are eight windows corresponding to the eight axes that the TCS8 is capable o 
controlling. The position of each axis is continuously updated by monitoring its encoder, and 
displayed in a fixed format of a sign, two digits, a decimal point, and four digits. 

2.02 Power Key. 

The power key is used to store the cuiTent configuration to non-volatile memory before 
turning off power to the TCS8. Pressing the power key turns the displays off and saves the 
current configuration. Pressing it again turns the displays back on. This key can be used to 
implement a screen saver function. 

2.03 Jog Control Keys. 

These keys are used to control up to eight axes in a jog mode. The mode (slaved, one s 
only, or two’s only) can be set through the jog menu. When the operator presses a jog key, the 
respective axis will begin to move. The direction that the axis moves is determined by the operator 
pressing either a plus or minus jog key. A plus jog key will turn the lead screw in a clockwise 
direction (away from the motor), a minus jog key will turn it in the counter-clockwise direction 
(towards the motor). By releasing the jog key, the operator stops motion on that axis. Motion wi 
also stop if the axis reaches the limit for the direction it is moving, or if the indexer determines that 

the axis has stalled. 
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Z.U 4 ocruii ivcj 3 . 

These keys are used to scroll items through the MENU, COMMAND, and CHANNEL 
windows. All of the menus, their commands, and channel variations will be detailed in Section 

3.00. 


2.05 Command Windows. . 

These three windows (MENU, COMMAND, and CHANNEL) are used, in tandem with 

their respective scroll keys, to formulate a command to be executed by the TCS8. 


2.06 Execute Key. 

This key is used to execute the command currently formulated in 
and CHANNEL windows. 


the MENU, COMMAND, 


2.07 Data Window. 

Many of the TCS8’s commands require some added data, e.g. the distance to move. Data 
for these commands are entered from the numeric key pad on the lower right of the TCS8 into the 
DATA window. Only a valid real number can be entered into the DATA window. If the operator 
enters an invalid real number, the character that is invalid will flash until the operator presses 
backspace or a valid character. 

2.08 Stop Key. 

The stop key, when pressed, will stop motion on all axes. The TCS8 will not lose track of 
the position of any axis. A move command started by the host computer and stopped by the stop 
key will finish normally with the position being reported. The position reported is the 
instantaneous position when the stop key was pressed. The final position of the axis being mov 
could be different than what was reported, thus the host computer should read the position again 
after a panic stop. 

2.09 Status Window. 

The STATUS window reflects the result of all commands. For commands that are not 
instantaneous, this window displays a busy status and then when the command completes it 
displays a ready status. The results of all view commands are displayed in the STATUS window. 
The STATUS window also displays the activity over the COM interfaces. For example, when the 
command for viewing position is sent over the COM1 interface, the STATUS window will display 

“COM1 VP” and when the command is completed the window will display COM1 vp . 

2.10 Numeric Key Pad. 

The numeric key pad is used to enter a number into the data window. The user may 
backspace in the window or clear (shift-backspace) the window. 
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3.00 


This section describes the command set that can be executed from the front panel of the 
TCS8. Using the up and down keys under the MENU, COMMAND, and CHANNEL windows, 
the operator can formulate a command and then execute it by pressing the EXECUTE key. Some 
commands require extra information to be entered into the DATA window through the use of die 
numeric key pad. Each description includes a list of related commands that should be referred to in 
order to enhance the operator’s understanding of the command. Also, where applicable, the default 
setting is given. 


Section Title 


Page 


3.01 Move to Zero. 

3.02 Move Absolute. 

3.03 Move Relative. 

3.04 Jog Mode. 

3.05 Set Counts Per Unit. 

3.06 Set Counts Per Revolution. 

3.07 Set Position. 

3.08 Set Velocity. 

3.09 Set Acceleration. 

3.10 Set Currents On. 

3.11 Set Currents Off. 

3.12 SetlnitsOn. 

3.13 Mew Counts Per Unit. 

3.14 Mew Counts Per Revolution . 

3.15 Mew Velocity. 

3.16 Mew Acceleration. 

3.17 Mew Init. 

3.18 Mew Currents. 

3.19 Mew Plus Limit Switches. 

3.20 Mew Minus Limit Switches. 

3.21 Mew Home Switches. 

3.22 Mew Stall Indication. 

3.23 Init Default. 

3.24 Init Drive On. 

3.25 Init Drive Off. 

3 26 COM1/COM2 Baud Rate. 

3.27 COM1/COM2 Bits Per Character. 
3 28 COM1/COM2 Parity. 

3.29 COM1/COM2 Stop Bits. 

3 . 30 COM 1 /COM2 Handshake. 


10 

10 

11 

11 

12 

12 

13 

13 

14 
14 

14 

15 
15 

15 

16 
16 
16 
17 
17 

17 

18 
18 
18 
18 
19 

19 

20 
20 
20 
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3.01 Move to Zero. 
MENU: MOVE 


( 


COMMAND: TO ZERO 

CHANNELS: ALL, ONE’S, TWO'S, X1&X2, Y1&Y2, Z1&Z2, A1&A2, XI, X2, 
Yl, Y2,Z1,Z2, Al, A2 

DESCRIPTION: The MOVE TO ZERO command is an easy way jo^c wme or all 
of the axes to the zero position. This command can also be accomplished with theMOVE 
ABSOLUTE command and a zero in the DATA window. Before using this comm . 
sdreSaxes must be initialized with the MT DRIVE ON command. This command can 
te cicelS bv preset, g the STOP key. When the STOP key is pressed, all axes wtll stop 
tamediately. If P an axis encounters a limit before reaching zero, the rest of us movement 

aborted. 

RELATED COMMANDS: MOVE ABSOLUTE, MOVE RELATIVE, INTT Drive ON. 


3.02 Move Absolute. 
MENU: MOVE 


COMMAND: ABSOLUTE 

CHANNELS: X1&X2, Y1&Y2, Z1&Z2, A1&A2, XI, X2, Yl, Y2, Zl, Z2, Al, A2 


DESCRIPTION: The MOVE ABSOLUTE command requires a position to be entered in 
die DATA window. This position and the current position of the axis is used to calculate 
the relative distance the axis must move. Before using this command, selected axes must 
be initialized with the INTT DRIVE ON command. This command can be canceled by 
Dressing tire STOP key. When the STOP key is pressed, all axes will stop immediately. If 
K" encounters a limit before reaching the position entered in the DATA wtndow, the 
rest of its movement is aborted. 


RELATED COMMANDS: MOVE TO ZERO, MOVE RELATIVE, INIT Drive ON 
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3.03 Move Relative. 
MENU: MOVE 


COMMAND: RELATIVE 

CHANNELS: X1&X2, Y1&Y2, Z1&Z2, A1&A2, XI, X2, Yl, Y2, Zl, Z2, Al, A2 

DESCRIPTION: The MOVE RELATIVE command requires a distance to be entered in 
the DATA window. This position is used to calculate *e relative distance the 
move. Before using this command, selected axes must be 
ON command. This command can be canceled by pressing the STOP key. 

STOP kev is pressed, all axes will stop immediately. If an axis encounters a hmitbefore 
ZgTdSnt»«l in me DATA window, the res. of its movement is aborted. 

RELATED COMMANDS: MOVE TO ZERO, MOVE ABSOLUTE, IN1T Drive ON 


3.04 Jog Mode. 

MENU: JOG 

COMMAND: MODE 

CHANNELS: SLAVED, ONE’S, TWO’S 

DESCRIPTION: The JOG MODE command sets the way the JOG keys operate. When 
SlSriTbe setting, both die one and two axis of the X, Y, Z, orA^tdina.ewdl move 
the same amount. When ONE'S is the setting, only the one axes of the X, Y, Z, or A 
coordinate will move. And finally, when TWO'S is the ^ 'IjfJ X ' 

YZ, or A coordinate will move. The currenimodeis „ , llh 

setting the iog mode, jogged movements can be made using the jog control keys. As wi 
SS commands, dte axis or axes that are to be jogged must be tmttataed 

with the INTT Drive ON command. 

RELATED COMMANDS: INIT Drive ON 


DEFAULT: SLAVED 
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3.05 Set Counts Per Unit. 
MENU: SET 


COMMAND: CPU 

CHANNELS: ALL, X1&X2, Y1&Y2, Z1&Z2, A1&A2, XI, X2, Yl, Y2, Zl, Z2, Al, 
A2 

DESCRIPTION: The SET CPU command allows the user to change the counts per unit 

travel The CPU for an axis is determined by multiplying the encoder resoludo 

(counts/revolution) by the lead screw resolution (revoluuons/umt of travel). A units 

cotv” reion can beaded here to change, for example, from 

the CPU for an axis is changed, the position is automatically converted. 

requires a value to be entered in the DATA window. 

RELATED COMMANDS: SET CPR, SET POSITION 


DEFAULT: XI 
Yl 
Zl 
Al 


4000 X2 
4000 Y2 
4000 Z2 
4000 A2 


4000 

4000 

4000 

4000 


3.06 Set Counts Per Revolution. 


MENU: SET 
COMMAND: CPR 

CHANNELS: ALL, X1&X2, Y1&Y2, Z1&Z2, A1&A2, XI, X2, Yl, Y2, Zl, Z2, Al, 
A2 

DESCRIPTION: The SET CPR command allows the user to change the encoder counts 

Der motor revolution The CPR for an axis is determined by dividing the encoder 

resolution (counts/revolution) by the lead screws £ ^jtive 

The encoder counts per motor revolution entered in the DATA window, mu po 

integer. 

RELATED COMMANDS: SET CPU 


DEFAULT: XI 

400 

X2 

400 

Yl 

400 

Y2 

400 

Zl 

400 

72 

400 

Al 

400 

A2 

400 
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3.07 Set Position. 


MENU: SET 


COMMAND: POSITION 


CHANNELS: ALL, X1&X2, Y1&Y2, Z1&Z2, A1&A2, XI, X2, Yl, Y2, Zl, Z2, Al, 
A2 


DESCRIPTION: The SET POSITION command allows the user to change the current 
position of an axis without moving the axis. For example, the present position may ^ 
identified as zero or four inches or some other value. The new position must be entered in 
the DATA window before executing the command. 


RELATED COMMANDS: SET CPU 


3.08 Set Velocity. 
MENU: SET 


COMMAND: VELOCITY 

CHANNELS: ALL, X1&X2, Y1&Y2, Z1&Z2, A1&A2, XI, X2, Yl, Y2, Zl, Z2, Al, 
A2 

DESCRIPTION: The SET VELOCITY command allows the user to change the 
maximum speed at which an axis will travel. The range of valid velocities is 0.00 to 
50.000 revolutions per second. The default is 5 revs/sec. Some stepper moto 
configurations will stall above a certain speed. To verify that a stall occu!^, use the _ 

VffiWSTALL command. When a stall happens, reduce the ^ndnvTbefore 

continue normal operations. The new velocity must be entered in the DATA window before 

executing the command. 

RELATED COMMANDS: SET ACCEL. 


DEFAULT: XI 5.000 
Yl 5.000 
Zl 5.000 
Al 5.000 


X2 

5.000 

Y2 

5.000 

72 

5.000 

A2 

5.000 
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3.09 Set Acceleration. 

MENU: SET 
COMMAND: ACCEL. 

CHANNELS: ALL, X1&X2, Y1&Y2, Z1&Z2, A1&A2, XI, X2, Yl, Y2, Zl, Z2, Al, 
A2 

DESCRIPTION: The SET ACCEL, command allows the user to change the maximum 
acceleration for an axis. The range of valid accelerations is 0.01 to 999.99 revolutions per 
second per second. The default is 5 revs/sec/sec. The new acceleration must be entered in 
the DATA window before executing the command. 

RELATED COMMANDS: SET VELOCITY 


DEFAULT: XI 

5.00 

X2 

5.00 

Yl 

5.00 

Y2 

5.00 

Zl 

5.00 

72 

5.00 

Al 

5.00 

A2 

5.00 


3.10 Set Currents On. 

MENU: SET 
COMMAND: CmtsOn 

CHANNELS: ALL, ONE’S, TWO'S, X1&X2, Y1&Y2, Z1&Z2, A1&A2, XI, X2, 
Yl, Y2,Z1,Z2, Al, A2 

DESCRIPTION: The SET CmtsOn command allows the user to turn the motor currents 
on. The motor current must be on for an axis to be moved. The information in the DATA 
window is ignored. 


RELATED COMMANDS: SET CmtsOff 


3.11 Set Currents Off. 

MENU: SET 
COMMAND: CmtsOff 

CHANNELS: ALL, ONE’S, TWO’S, X1&X2, Y1&Y2, Z1&Z2, A1&A2, XI, X2, 

Yl, Y2, Zl, Z2, Al, A2 

DESCRIPTION: The SET CmtsOff command allows the user to power down motors 
when they will not be used for long periods of time. The informauon in the DATA win ow 

is ignored. 


RELATED COMMANDS: SET CmtsOn 
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3.12 Set Inits On. 
MENU: SET 


COMMAND: INITS ON 


CHANNELS: ALL, ONE'S, TWO’S, X1&X2, Y1&Y2, Z1&Z2, A1&A2, XI, X2, 
Y1,Y2,Z1,Z2,A1,A2 


DESCRIPTION: The SET INITS ON command allows the user to initialize the indexers 
without turning on the power to the motors. This command gives er f!L ust 
velocity acceleration, and counts per motor revolution uiformation. The indexers must 
have this information before any movement can occur. This y 

given once after powering up the system. The information in the DATA window is 

ignored. 


RELATED COMMANDS: INIT Drive ON 


3.13 View Counts Per Unit. 

MENU: VIEW 
COMMAND: Cnt/Unit 

CHANNELS: XI, X2, Yl, Y2, Zl, Z2, Al, A2 

DESCRIPTION: The VIEW Cnt/Unit command displays diecuircnt semng of Ae 
encoder counts per unit travel parameter for the selected axis in the STATUS 
information in the DATA window is ignored. 

RELATED COMMANDS: SET CPU 


3.14 View Counts Per Revolution. 

MENU: VIEW 

COMMAND: Cnt/MRev 

CHANNELS: XI, X2, Yl, Y2, Zl, Z2, Al, A2 

DESCRIPTION : The VIEW Cnt/MRev command displays the current setting of the 
encoder counts per motor revolution parameter for the selected axis in the SIA1 Ub 
window. The information in the DATA window is ignored. 

RELATED COMMANDS: SET CPR 
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3.15 View Velocity. 
MENU: VIEW 


COMMAND: VELOCITY 

CHANNELS: XI, X2, Yl, Y2, Zl, Z2, Al, A2 

DESCRIPTION: The VIEW VELOCITY command displays the current setting of the 
velocity parameter for the selected axis in the STATUS window. The information in the 
DATA window is ignored. 

RELATED COMMANDS: SET VELOCITY 

3.16 View Acceleration. 

MENU: VIEW 
COMMAND: ACCEL. 

CHANNELS: XI, X2, Yl, Y2, Zl, Z2, Al, A2 

DESCRIPTION* The VIEW ACCEL, command displays the current setting of the 
acceleration parameter for the selected axis in the STATUS window. The information in e 
DATA window is ignored. 

RELATED COMMANDS: SET ACCEL. 


3.17 View Init. 

MENU: VIEW 
COMMAND: INIT 


CHANNELS: none 


DESCRIPTION: The VIEW INIT command uses the STATUS window to display a 
oneiiniriaJized) or a zero<un,„mal,zed)for each axis. The STATUS wrndow ejght 
characters; left to right respectively reflecting the status of XI, X2 .... A 1, A . 
information in the DATA window is ignored. 


RELATED COMMANDS: SET INTI'S, INIT Drive ON 
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3.18 View Currents. 

MENU: VIEW 
COMMAND: CURRENTS 


CHANNELS: none 


DESCRIPTION: The VIEW CURRENTS command uses ^ STATOS i wjdow ® 
display a one(current on) or a zero(current off) for each axis. The STATUS window has 
eight characters; left to right respectively reflecting the status of XI, X2 Al, A2. I ne 
information in the DATA window is ignored. 


RELATED COMMANDS: SET CmtsOn, SET CmtsOff, INIT Drive ON, INIT Drive 
OFF 


3.19 View Plus Limit Switches. 
MENU: VIEW 
COMMAND: PlusLMT 


CHANNELS: none 

DFSCRIPTION: The VIEW Plus LMT command uses the STATUS window to display 
a one(on limit) or a zero(not on limit) for each axis. The STATUSwindow has eight 
characters; left to right respectively reflecting the status of X 1 , X^.., A LA2. P 

limit switches are located at the positive movement end of travel. The information in the 

DATA window is ignored. 


RELATED COMMANDS: VIEW Minus LMT, VIEW HOME 


3.20 View Minus Limit Switches. 
MENU: VIEW 
COMMAND: Minus LMT 


CHANNELS: none 

DESCRIPTION: The VIEW Minus LMT command uses tire ^ow to 

display a one(on limit) or a zero(not on limit) for each axis. The STATUS wmdow. has 
eight characters; left to right respectively reflecting the s *tus XI, X2 Al ^ 
minus limit switches are located at the negative movement end of travel. The information 

the DATA window is ignored. 


RELATED COMMANDS: VIEW Plus LMT, VIEW HOME 
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3.21 View Home Switches. 
MENU: VIEW 
COMMAND: HOME 


CHANNELS : none 

DESCRIPTION: The VIEW HOME command us* ^JUSj.ndow todisplay a 
one(on limit) or a zero(not on limit) for each axis. The STATU A1 a 2 The home 

the DATA window is ignored. 


RELATED COMMANDS: VIEW Plus LMT, VIEW Minus LMT 


3.22 View Stall Indication. 
MENU: VIEW 
COMMAND: STALL 


CHANNELS: none 

INSCRIPTION- The VIEW STALL command uses the STATUS window todisplaya 

stalled) foreach ^ 7/7 s^lTstd'S ' 

ta^dy “the axis is physically jammed. The informatton tn the DATA wtndow ts 
ignored. 


RELATED COMMANDS: none 


3.23 Init Default. 

MENU: INIT 
COMMAND: DEFAULT 


CHANNELS: none 

DESCRIPTION: The INIT DEFAULT command restores 

T PPR VFT OCITY ACCELERATION, BAUD RATE, BITS/CHAR RARITY, STOP 
mT«j HANDSHAKER of the TCS8 After executing this command, execute the comman 

The information in the DATA window is ignored. 

RELATED COMMANDS: SET CPU, SET CPR, SET VELOCITY, SET ACCEL. 


4-18 


3.24 Init Drive On. 

MENU: INIT 
COMMAND: Drive ON 

CHANNELS: ALL, ONE’S, TWO'S, X1&X2, Y1&Y2, Z1&Z2, A1&A2, XI, X2, 
Yl, Y2,Z1,Z2, Al, A2 

DESCRIPTION: The INTT Drive ON command initializes the selected axes for 
movement. This command does the same thing as SET INITS ON except that it also turns 
on the current to the motors. The information in the DATA window is ignored. 

RELATED COMMANDS: SET CPU, SET CPR, SET VELOCITY, SET ACCEL., 
SET CnrtsOn, SET CnrtsOff, INIT DEFAULT 


3.25 Init Drive Off. 

MENU: INIT 
COMMAND: Drive OFF 

CHANNELS: ALL, ONE’S, TWO'S, X1&X2, Y1&Y2, Z1&Z2, A1&A2, XI, X2, 
Yl, Y2,Z1,Z2, Al, A2 

DESCRIPTION: The INIT Drive OFF command is an alias for SET CmtsOff. 
RELATED COMMANDS: SET CmtsOff 


3.26 COM1/COM2 Baud Rate. 
MENU: COM1/COM2 


COMMAND: BaudRate 

CHANNELS: 19.2K, 9600, 4800, 2400, 1200, 300, 110 

DESCRIPTION : The COM 1/COM2 BaudRate commands set die baud rate for the 
selected communication channel. The information in the DATA window is ignored. e 
current baud rate is marked with an asterisk. 


RELATED COMMANDS: none 
DEFAULT: 9600 


3.27 COM1/COM2 Bits Per Character. 

MENU: C0M1/C0M2 
COMMAND: Bit/Char 
CHANNELS: SEVEN, EIGHT 

DESCRIPTION: The COM1/COM2 Bit/Char command set the bits per character for the 
selected communication channel. The information in the DATA window is ignored. The 
current number of bits per character is marked with an asterisk. 

RELATED COMMANDS: none 

DEFAULT: EIGHT 

3.28 COM1/COM2 Parity. 

MENU: COM1/COM2 
COMMAND: Parity 
CHANNELS: NONE, EVEN, ODD 

DESCRIPTION: The COM1/COM2 Parity command set the parity for the selected 
communication channel. The information in the DATA window is ignored. The current 
parity is marked with an asterisk. 

RELATED COMMANDS: none 

DEFAULT: EVEN 

3.29 COM1/COM2 Stop Bits. 

MENU: COM1/COM2 
COMMAND: StopBits 
CHANNELS: 1, 1.5, 2 

DESCRIPTION: The COM1/COM2 StopBits command set the stop bits for the selected 
communication channel. The information in the DATA window is ignored. The current 
number of stop bits is marked with an asterisk. 

RELATED COMMANDS: none 

DEFAULT: 1 
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3.30 COM1/COM2 Handshake. 

MENU: COM1/COM2 
COMMAND: HandShak 
CHANNELS: NO, YES 

DESCRIPTION: The COM1/COM2 HandShak command set the handshake for the 

selected communication channel. The information in the DATA window is ignored. An 

asterisk marks whether there is handshaking or not. 

RELATED COMMANDS: none 
DEFAULT: YES 
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This section describes the command set that can be executed through the serial interfaces of 
the TCS8. Each description includes a code section that outlines the characters that must be sent to 
execute the command. The vertical bar in this section is used as a separator and is not sent as part 
of the command code. The symbol “CRLF’ stands for the two characters carriage return and line 
feed. Also where applicable, the default setting is given. 


Section Title 


Page 


4.01 Change Serial Configuration. 

4.02 Move to Absolute Position. 

4.03 Move Relative to Current Position. 

4.04 Set Acceleration. 

4.05 Mew Acceleration. 

4.06 Set Velocity. 

4.07 Mew Velocity. 

4.08 Set Encoder Counts Per U nit of Travel. 

4.09 Mew Encoder Counts Per U nit of Travel. 

4.10 Set Counts Per Motor Revolution. 

4. 1 1 Mew Counts Per Motor Revolution. 

4.12 Set Position. 

4.13 Mew Position. 

4.14 Set Current to Motor Windings. 

4.15 Mew Current to Motor Windings. 

4.16 Set Initialization of Indexer/Drivers. 

4.17 Mew Initialization of Indexer/Drivers. 
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24 
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4.01 Change Serial Configuration. 

COMMAND: CHANGE SERIAL CONFIGURATION 


CODE: CS COM;CATEGORY;ATTRIBUTE; 


PARAMETERS: 


COM: 

1/COM1 


2/COM2 

CATEGORY: 

0/BAUDRATE 

ATTRIBUTE: 

0/19.2K 


1/9600 


2/4800 


3/2400 


4/1200 


5/300 


6/110 

CATEGORY: 

1(BITS PER CHARACTER) 

ATTRIBUTE: 

0/SEVEN 


1/EIGHT 

CATEGORY: 

2(PARTTY) 

ATTRIBUTE: 

0/NONE 


1/EVEN 


2/ODD 

CATEGORY: 

3 (STOP BITS) 

ATTRIBUTE: 

0/ONE 


1/ONE AND A HALF 


2/rwo 

CATEGORY: 

4(HANDSHAKE) 

ATTRIBUTE: 

0/NO 


1/YES 


DESCRIPTION: This command must be executed with extreme caution and 
forethought. If the user changes an attribute of the same COM port from which he is 
sending the command, he must change to that attribute on the host computer before sending 
the next command. The best way to change the serial configuration of a COM port is to 
utilize the front panel commands. 

DEFAULT: 9600 baud, EIGHT bits/char, EVEN parity, ONE stop bit, handshaking YES 
EXAMPLE: To change the baudrate of COM1 to 2400 the user must send CS 1;0;3; 
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4.02 Move to Absolute Position. 

COMMAND: MOVE TO ABSOLUTE POSITION AND REPORT FINAL POSITION 

CODE: MA CHANNEL:POSITION,CHANNEL:POSITION,...ICRLF 

PARAMETERS: CHANNEL: 0/ALL CHANNELS 

1/X1 
2/X2 
3/Y1 
4/Y2 
5/Z1 
6/Z2 
7/A I 
8/A2 

POSITION: Real number free format 

DESCRIPTION: This command moves selected channels to absolute positions. 

EXAMPLES: To move all channels to zero the user may send ^ 0:0 ’C^f° r „ DT _ 

MA12345678:0,CRLF. To move channel XI to zero the user must send MAl:U,CKLr. 

To move channels XI and X2 to zero the user may send MA12:0,CRLF or 

MA1:0,2:0,CRLF or MA1:0,CRLF and MA2:0,CRLF. 


4.03 Move Relative to Current Position. 

COMMAND: MOVE TO RELATIVE DISTANCE AND REPORT FINAL POSITION 

CODE: MR CHANNEL:DISTANCE,CHANNEL:DISTANCE,...ICRLF 

PARAMETERS: CHANNEL: 0/ALL CHANNELS 

1/X1 

2/X2 

3/Y1 

4/Y2 

5/Z1 

6/72 

7/A1 

8/A2 

POSITION: Real number free format 

DESCRIPTION: This command moves selected channels relative distances. 

EXAMPLES: To move all channels one unit the user may send MR0:1,CRLF or 
MR 1 2345678: 1 ,CRLF. To move channel XI one unit the user must send MR1 . 1 ,LKLr. 
To move channels XI and X2 one unit the user may send MR12:1,CRLF or 
MR 1 : 1 ,2: 1 ,CRLF or MR 1 : 1 ,CRLF and MR2: 1 ,CRLF. 
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4.04 Set Acceleration. 


COMMAND: SET ACCELERATION 


CODE: SA CHANNEL:ACCELERATION,CHANNEL:ACCELERATION,. JCRLF 

PARAMETERS: CHANNEL: 0/ALL CHANNELS 

1/X1 

2/X2 

3/Y1 

4/Y2 

5/Z1 

6/Z2 

7/A1 

8/A2 

ACCELERATION: Real number free format between 

0.01 and 99.99 inclusive. 


DESCRIPTION: This command sets the acceleration for selected channels. 

DEFAULT: All channels 5.00 revolutions/second/second 

EXAMPLES: To set the acceleration for all channels to 4.00 revolutions/second/second 
the user may send SA0:4.00,CRLF or SA12345678:4.00,CRLF. To set the acceleration 
for channel XI to 4.00 revolutions/second/second the user must send SA1:4.00,CRLF. To 
set the acceleration for channels XI and X2 to 4.00 revolutions/second/second the user 
may send SA12:4.00,CRLF or SA1:4.00 ,2:4.00,CRLF or SA1:4.00,CRLF and 
SA2:4.00,CRLF. 


4.05 View Acceleration. 

COMMAND: VIEW ACCELERATION 

CODE: VA CHANNELICHANNEL...1CRLF 

PARAMETERS: CHANNEL: 0/ALL CHANNELS 

1/X1 
2/X2 
3/Y1 
4 A' 2 
5/Z1 
6/Z2 
7/A1 
8/A2 

DESCRIPTION: This command views the acceleration for selected channels. The 
TCS8 transmits each of the accelerations requested back to the host computer separated by 
carriage return line feeds. 

EXAMPLES: To view the acceleration for all channels the user may send VAOCRLFor 
VA12345678CRLF. To view the acceleration for channel XI the user must send VA1CRLF 
To view the acceleration for channels XI and X2 the user may send VA12CRLF or 
VA1CRLF and VA2CRLF. 
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4.06 Set Velocity. 


COMMAND: SET VELOCITY 

CODE: SV CHANNEL:VELOCITY, CHANNEL: VELOCITY,... ICRLF 

PARAMETERS: CHANNEL: 0/ALL CHANNELS 

1/X1 

2/X2 

3/Y1 

4/Y2 

5/Z1 

6/Z2 

7/A1 

8/A2 

VELOCITY: Real number free format between 

0.001 and 50.000 inclusive. 

DESCRIPTION: This command sets the velocity for selected channels. 

DEFAULT: All channels 5.000 revolutions/second 

EXAMPLES : To set the velocity for all channels to 4.00 revolutions/second the user may 
send SV0:4.00,CRLF or SV 12345678 :4.00,CRLF. To set the velocity for channel XI to 
4.00 revolutions/second the user must send SV 1 :4.00,CRLF. To set the velocity for 
channels XI and X2 to 4.00 revolutions/second the user may send SV 12:4.00, CRLF or 
SV 1:4.00 ,2:4.00,CRLF or S V 1 :4.00,CRLF and SV2:4.00,CRLF. 


4.07 View Velocity. 

COMMAND: VIEW VELOCITY 

CODE: VV CHANNELICHANNEL... ICRLF 

PARAMETERS: CHANNEL: 0/ALL CHANNELS 

1/X1 

21X2 

3/Y1 

4/Y2 

5/Z1 

6/Z2 

7/A1 

8/A2 

DESCRIPTION: This command views the velocity for selected channels. TheTCS8 
transmits each of the velocities requested back to the host computer separated by carnage 
return line feeds. 

EXAMPLES : To view the velocity for all channels the user may send W0CRLF or 
VV12345678CRLF. To view the velocity for channel XI the user must send VV ICRLF. 
To view the velocity for channels XI and X2 the user may send VV12CRLF or W ICRLF 
and VV2CRLF. 
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4.08 Set Encoder Counts Per Unit of Travel. 

COMMAND: SET ENCODER COUNTS PER UNIT TRAVEL 

CODE: SU CHANNEL:CPU,CHANNEL:CPU,...ICRLF 

PARAMETERS: CHANNEL: 0/ALL CHANNELS 

1/A. 1 
2/X2 
3/Y1 
4 A" 2 
5/Z1 
6/Z2 
7/A1 

8/A2 „ r 

PPI j . Non-zero real number free format. 


DESCRIPTION: This command sets the encoder counts per unit travel for selected 
channels. 


DEFAULT: X1,X2,Y1,Y2,Z1,Z2,A1, and A2 4000 counts/inch 

rv a mpi F S • To set the encoder counts per unit travel for all channels to 5000 the user 
EXA " L „. smf^RLF or SU 12345678 : 5000 .CRLF. To set the encoder counts per 
3 davel for cS“no 5W the user must send SU1:5000,CRLF. To set the encoder 
3 per unit travel for channels XI arid X2 to 5 CK» the user may send 
SU12:5000,CRLF or SU1:5000 ,2:5000, CRLF or SU1:5000,CRLF and 
SU2:5000,CRLF. 


4.09 View Encoder Counts Per Unit of Travel. 

COMMAND: VIEW ENCODER COUNTS PER UNIT TRAVEL 


CODE: VU CHANNELICHANNEL. .. ICRLF 

PARAMETERS: CHANNEL: 0/ALL CHANNELS 

1/A 1 
2/X2 
3/Y1 
4/Y2 
5/Z1 
6/Z2 
7/A1 
8/A2 


nFCCRTPTION* This command views the encoder counts per unit travel for selected 
channels.^ The TCS 8 ansmi^eac h of the encoder counts per unit travel requested back to 
the host computer separated by carriage return line feeds. 

FX AMPLES : To view the encoder counts per unit travel for all channels 

j V t joCRLF or VU 12345678CRLF. To view the encoder counts per unit travel fo 

channels XI and X2 the user may send VU12CRLF or VU1CRLF and 
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4.10 Set Counts Per Motor Revolution. 

COMMAND: SET ENCODER COUNTS PER MOTOR REVOLUTION 


CODE: SR CHANNEL:CPR,CHANNEL:CPR,—ICRLF 

PARAMETERS: CHANNEL: 


CPU: 


0/ALL CHANNELS 
1/X1 
2/X2 
3/Y1 
4/Y2 
5/Z1 
6/Z2 
7/A1 
8/A2 

Non-zero integer free format. 


DESCRIPTION : This command sets the encoder counts per motor revolution for 
selected channels. 

DEFAULT: X1,X2,Y1,Y2,Z1,Z2 and A1,A2 400 counts/inch 

EXAMPLES: To M^h^en«)der counK ^r^n»raT revolution^ ^ (he encoder counts per 

and SR 2 :500.CRL.F. 


4.11 View Counts Per Motor Revolution. 

COMMAND: VIEW ENCODER COUNTS PER MOTOR REVOLUTION 

CODE: VR CHANNELICHANNEL...ICRLF 

PARAMETERS: CHANNEL: 0/ALL CHANNELS 

2/X2 

3/Y1 

4/Y2 

5/Z1 

6/Z2 

7/A1 

8/A2 

requiSd back to the host computer separated by carnage return lme feeds. 

EX AMPLES: To vie* m^8 C <ffi^o"riew Ihe mcX^omtf^r motOT “ 
may send VROCRLF or VR1 234567: 8CRLF. encoder counts per 

and VR2CRLF. 
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4.12 Set Position. 


COMMAND: SET POSITION 

CODE: SP CHANNEL:POSITION,CHANNEL:POSITION,...ICRLF 


PARAMETERS: CHANNEL: 


POSITION: 


0/ALL CHANNELS 

1/X1 

2/X2 

3/Y1 

4/Y2 

5/Z1 

6/Z2 

7/A1 

8/A2 

real number. 


DESCRIPTION: This command sets the position for selected channels. 


EXAMPLES: To set the position for all channels to 1.5 the user may sencl 
SP0:1.5,CRLF or SP 1 2345678: 1.5.CRLF. To set the position for channel XI 
user must send SP1:1.5,CRLF. To set the Position for dunnds XI and X2 to 
may send SP12:1.5,CRLF or SP1:1.5 ,2:1.5,CRLF or SP1.1.5,CRLF and 
SP2:1.5,CRLF. 


to 1.5 the 
1.5 the user 


4.13 View Position. 

COMMAND: VIEW POSITION 

CODE: VP CHANNELICHANNEL...ICRLF 

PARAMETERS: CHANNEL: 0/ALL CHANNELS 

1/X1 

2/X2 

3/Y1 

4/Y2 

5/Z1 

6/72 

7/A1 

8/A2 


DESCRIPTION: This command views the position for selected channels. Hie TCS8 
transmits each of the positions requested back to the host computer separated by carnage 
return line feeds. 

EXAMPLES: To view the position for all channels the user may send V ^^RLF or 

VP 1 234567 8CRLF. To view the position for channel XI the user S?rR?F or VP1CRLF 
To view the position for channels XI and X2 the user may send VP12CRLF or VrlCKLr 

and VP2CRLF. 
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4.14 


Set Current to Motor Windings. 


COMMAND: SET CURRENT TO MOTOR WINDINGS 


CODE: SC CHANNEL:ON/OFF,CHANNEL:ON/OFF,. JCRLF 


PARAMETERS: CHANNEL: 


ON/OFF: 


0/ALL CHANNELS 

1/X1 

2/X2 

3/Y1 

4/Y2 

5/Z1 

6/Z2 

7/A1 

8/A2 

1/ON 

O/OFF 


DESCRIPTION: This command sets the current to the motor windings for selected 
channels on or off. 


SC ^ ut e r '^ay^d^^.CRl.F or 

SC 1234567 8 :0,CRLF. 


4.15 View Current to Motor Windings. 

COMMAND: VIEW CURRENT TO MOTOR WINDINGS 

CODE: VC CHANNELICHANNEL. JCRLF 

PARAMETERS: CHANNEL: 0/ALL CHANNELS 

1/X 1 

21X1 

3/Y1 

4/Y2 

5/Z1 

6/Z2 

7/A1 

8/A2 


DESCRIPTION: This command views ^ — 

channels. The TCS8 transmits each response of on/off (1/0) oacK to v 

separated by carriage return line feeds. 

S'Lt to the motor windings for all channels the user may send VCOCRLF or 

S Sssssa”-""” 

VC12CRLF or VC1CRLF and VC2CRLF. 
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4.16 Set Initialization of Indexer/Drivers. 

COMMAND: SET INITIALIZATION OF INDEXER/DRIVERS 

CODE: SI CHANNELICHANNEL. . . ICRLF 

PARAMETERS: CHANNEL: 0/ALL CHANNELS 

1/X1 

21X2 

3/Y1 

4/Y2 

5m 

6/Z2 

7/A1 

8/A2 

DESCRIPTION: This command sends the current value of the acceleration, velocity, 
and the encoder counts per motor revolution to the indexer/driver for the selected channels. 
This command must be sent before any move commands may be sent. 


EXAMPLES: 

To initialize all channels the user may send SIOCRLF or SI12345678CRLF 

To initialize channel XI the user must send SI ICRLF pi ^ mc . m „ DIC 

To initialize channels XI and X2 the user may send SI12CRLF or SI1CRLF and SI2CRLF 


4.17 View Initialization of Indexer/Drivers. 

COMMAND: VIEW INITIALIZATION OF INDEXER/DRIVERS 

CODE: VI CHANNELICHANNEL... ICRLF 

PARAMETERS: CHANNEL: 0/ALL CHANNELS 

1/X1 

21X2 

3/Y1 

4/Y2 

5m 

6/Z2 

7/A1 

8/A2 

DESCRIPTION : This command returns “1” if the indexer/driver has been initialized 
since the TCS8 was turned on and “0” if it has not. The TCS8 transmits each of the 
responses back to the host computer separated by carriage return line feeds. 

EXAMPLES: 

To check the initialization of all channels the user may send VIOCRLF or 
VI12345678CRLF 

To check the initialization of channel XI the user must send VI1CRLP 

To check the initialization of channels XI and X2 the user may send VI12CRLF or 

VI1CRLF and VI2CRLF 
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5.00 Traverse Control System Cables. 
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SIGNAL I DESCRIPTION 
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9 Motor Drive System to TCS8 Encoder Signals Cable. 
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Code Listing. 



Original Software Code Listing. 


tap, p r>E CONTENTS. 

Page 

Item Title 

1 Original Hard Disk Directory Catalog Listing.. 

2 Original Program “3.5’HWT91” Hard Copy Code Listing. 3 


A-l 


Hard Disk Directory Catalog Listing 


:CS80, 1400, < 
VOLUME LABEL: 
FILE NAME PRO 

SYSB60 

CDUMP 6 

BP LOT 6 

AUTOST 

ARRAY 

KEYS 

COPY 

3.5’ HWT 9 1 


, o 

B9826 

TYPE REC/FILE BYTE/REC ADDRESS 


SYSTM 

3388 

PROG 

44 

PROG 

40 

PROG 

10 

BDAT 

50 

BDAT 

4 

PROG 

25 

PROG 

372 


256 32 
256 3420 
256 3464 
256 3504 
256 3515 
256 3566 
256 3570 
256 3595 


DATE TIME 

17- Jul-91 13:10 
17- Jul-91 13:10 
17- Jul-91 13:10 
17- Jul-91 13:10 
17- Jul-91 13:11 
17- Jul-91 13:11 
17- Jul-91 13:11 
17- Jan-92 16:03 
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100 ! 

110 ! 

120 I 
130 : 

140 ! 

150 ! 

160 ! 

170 ! 

180 ! 

190 ! 

200 ! 

210 I 
220 ! 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

4 90 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 Here: 

620 

630 

640 File_set_up: 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 

750 Grph_set_up: 

7 60 

770 

780 

790 Menu_set_up: 
800 
810 
820 
830 
840 

850 Tcs8_set__up : 


***************** 


3.5* HWT91 18-Jun-91 10:46 


Property of COMPLERE INC. 
Proprietary software 
Copyright June 18, 1991 
Developed by: T. Kevin McDevitt 

LASER DOPPLER VELOCIMETER TEST 

3.5 FOOT HYPER SONIC WIND TUNNEL 
NASA AMES RESEARCH CENTER 


**************** 


DEG 

COm' /D ata /^INTEGER Raw ,1000. 10) ,VaU-U000> . REAL Table (0:32766) (1000) ,V1 (1000) ,W1 (1000) » A1 (1000) ( 

COM /A^cay/’ NameS^lOo) ^lO^Punit sS^S^l) IK Npos 

COM /Gtaph/"wnd!i! 9 *i) 1 Vtiprt <9r^??Xdlv(9) »Tdlv(9) .XlabelS (9, [80] ,Ylabel$ (9) (80] , Title? (9) 1801, 
XimageS (9) ( 80 ) , YimageS < 9) [ 80 ] , Legend? { 9, 5) 160) 

COM Run, File, Paxis 

DIM MenuS (5, 8) [ 801 , Systems ( 20 1 , DataS [20 1 , FI leS [50] , LS [1601 
INTEGER Gsave(1280, 10241 , At_exp, Ct_exp , Cmask, Nsam, N < 10 , 

REAL At ime, Ctime, Sum (10, 3) , Symbols (5, 0 : 20, 3) 

DIM Tc.2tunl < 4.«).Tun2 t c.l(4M).Tun2mod(3.3).Tun21d*<: 

DIM Tcs2tun2 (4 , 4 1 , Tun2tcs2 1 4 , 4 ) ,Mod2tun(3, 31 . Ldv2t un ( 3. 3) .Mod(4) ,Tcs2( 

DIM Beam .pc . 3) . Focl.len (3, , Mea_„n . 3. , Mlx_f rq (3) . Mix sgn ( 3) Frn, spc (3, . Thata (3. 3) 

DIM BeamlseplS) ,Wave_len(3) ,Brg_frq(3) ,Brq_sgn(3) . Index<3) ,Coln(3) 

I 

PRINTER IS CRT 
CLEAR SCREEN 
GCLEAR 


GOSUB Lvds_set_ 
GOSUB File_set 
GOSUB Tcs8_set 
GOSUB Menu set 


up 

up 

up 

up 


,Tcsl (*) ,Tcs2 <♦) ,Mod2tun(*l ,Tun2tcsl<*> ,Tun2tcs2 (*) 


GOSUB Grph_set_up 
GOTO 580 
CLEAR SCREEN 

CALL Tcs8move ( @Tcs8, Mod ( * ) ,Tun(*)< 

"ABSOLUTE”, 2,. 2 50) Mod2tun(*l ,Tun2tcsl (*) ,Tun2tcs2 (*) 

CALL Tcs8move (QTcs8 , Mod ( * ) , Tun ( ) , Tcsl ( >» ' 

"ABSOLUTE", 2, . 251) 

GOTO 540 


Date=TIMEDATE 

Time=Date 

CALL Purge (SystemS , DataS) 

DISP TIMES (TIMEDATE) , DATES (TIMEDATE) 


GOTO Here 


STOP 

Sy stem$=" : , 1400 , 0 , 0" 

Data$=" : , 1400, 0, 1" 

I F^NOT^INMEM^Gdum^ colored”) THEN LOADSUB ALL FROM -CDUMPG-sSystemS 
IF NOT INMEM. ”Bload”) THEN LOADSUB ALL FROM "BPLOT6” t SystemS 
IF NOT INMEM { "Bstore") THEN LOADSUB ALL FROM " BPLOT6 &System$ 

GOSUB Read_arr ay 
GOSUB Read_calc_f ill 
GOSUB Savearray 
CLEAR SCREEN 
RETURN 

CALL Readsymbols ( Symbols (*) ) 

CALL Crt_init . . I#1 . 

CALL Set up_graph (Array (* ) , ImageS ( * ) , Paxis , Symbols 


RETURN 

CALL Menu_read (MenuS (*) ) 

CALL Menu_disp (Menu, MenuS (*) > 


GOSUB On_key 

Busy=0 

Ready=l 


RETURN 

CALL TcsSinit (0TcsB) 


**Tx 4 Rx", "LASER 
“Tx & Rx", "LASER 
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, Tcs2tunl ( *) , Tcs2t un2 ( * ) . Tun2mod ( * ) ) 


860 

870 

880 

890 

900 Lvds_set_up: 

910 

920 

930 On_key: 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 Keyl : 

1030 

1040 

1050 

1060 

1070 

1080 Key2 : 

1090 

1100 

1110 

1120 

1130 

1140 Key3 : 

1150 

1160 

1170 

1180 

1190 

1200 Key 4 : 

1210 

1220 

1230 

1240 

1250 

1260 Key5 : 

1270 

1280 

1290 

1300 

1310 

1320 Key6 : 

1330 

1340 

1350 

1360 

1370 

1380 Key7: 

1390 

1400 

1410 

1420 

1430 

1440 Key8: 

1450 

1460 

1470 

1480 

1490 

1500 Mlkl : 

1510 

1520 

1530 Ml k2 : 

1540 

1550 

1560 Ml k3 : 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 


CALL TcsBread ( @Tcs8, Mod (*) t Tun ( *) , Tcsl ( *) , Tcs2 
GOSUB Calc 
GOSUB Fill 
RETURN 

CALL Lvdas_init (3Lvdas) 

CALL Table (Table {*) } 

RETURN 

ON KEY 1 GOSUB Keyl 
ON KEY 2 GOSUB Key2 
ON KEY 3 GOSUB Key3 
ON KEY 4 GOSUB Key 4 

ON KEY 5 GOSUB Key 5 

ON KEY 6 GOSUB Key 6 

ON KEY 7 GOSUB Key7 

ON KEY 8 GOSUB Key8 

RETURN 


CALL Menu status (Menu, Key, Busy, MenuS <*) ) 

ON Menu GOSUB Mlkl ,M2kl , M3kl,M4kl, M5kl , M6kl,M7kl 

CALL Menu status (Menu, Key, Ready, MenuS ( *H Tcs2tunl(*> 

CALL Tcs8read (@Tcs8,Mod(M , Tun (*) ,Tcsl () ,Tcs2 ),Tcs2tu 


Tcs2t un2 ( *) , Tun2mod { * ) ) 


RETURN 

CALL Menu st at us {Menu, Key , Busy , MenuS <*> ) 

ON Menu GOSUB Mlk2 , M2k2 , M3k2 , M4k2 , M5k2 . M6k2, M7k2 
CALL Menu_stat us (Menu, Key, Ready, MenuS { M) 

CALL Tcs8read (0Tcs8,Mod (*) , Tun (*) , Tcsl ( ),Tcs2( ), 
RETURN 

CALL Menu status (Menu, Key, Busy, MenuS <M ) 

ON Menu GOSUB Mlk3,M2k3,M3k3,M4k3, M5k3, M6k3,M7k3 
CALL Menu_status(Menu, Key, Ready, Menu$(*)> 

CALL TcsBread ( 0Tcs 8, Mod ( *) , Tun {*) , Tcsl ),Tcs2( 

RETURN 

Key-4 

CALL Menu status (Menu, Key, Busy , MenuS { *) ) 

ON Menu GOSUB Mlk4 , M2k4 , M3k4 , M4k4 , M5k4 , M6k4 , M7k4 
CALL Menu status (Menu, Key, Ready, MenuS ( *)) 

CALL TcsSread (0Tcs8,Mod( # ) ,Tun(*) , Tcsl ( *) » Tcs2 ( ) 

RETURN 

Key = 5 

CALL Menu status (Menu, Key, Busy,MenuS()} 

ON Menu GOSUB Mlk5 , M2k 5 , M3k5 , M4k5 , M5k5 , M6k5, M7k5 

CALL Menu status (Menu, Key, Ready, MenuS ( *)) 

CALL Tcs8read ( 9Tcs8,Mod (*) , Tun (*) , Tcsl ( ),Tcs2( ), 
RETURN 

CALL Menu st at us (Menu, Key , Busy , MenuS (M ) 

ON Menu GOSUB Mlk6, M2k6, M3k6,M4k6, M5k6, M6k6, M7k6 
CALL Menu status (Menu, Key , Ready, Menu? (*) ) 

CALL TcsSread ( 0Tcs 8, Mod (*) ,Tun(*) , Tcsl ( *) , Tcs2 ( ), 

RETURN 

Key =7 

CALL Menu status (Menu, Key, Busy, MenuS {*) ) 

ON Menu GOSUB Mlk7 ,M2k7, M3k7,M4k7, M5k7, M6k7, M7k7 
CALL Menu status (Menu, Key , Ready , MenuS (*) ) 

CALL Tcs8read (0TcsB,Mod(*) ,Tun(*) ,Tcsl (*) , Tcs2 ) 
RETURN 

CALL Menu status (Menu, Key, Busy, MenuS (*) 5 
ON Menu GOSUB Mlk8 , M2k8 , M3k8 , M4k8, M5k8 , M6k8, M7k8 
CALL Menu status (Menu, Key , Ready , Menu$ (*) ) 

CALL TcsSread ( 0Tcs8, Mod (*) , Tun ( M , Tcsl ( ), cs 

RETURN 

Menu=2 

CALL Menu_disp (Menu, MenuS (*) ) 

RETURN 

Menu=3 

CALL Menu_disp (Menu, MenuS (M ) 

RETURN 

KEY LABELS OFF 

PRINTER IS CRT ; WIDTH 132 


Tcs2t uni (*> ,Tcs2tun2(*i ,Tun2mod(*) > 


Tcs2t uni (*) , Tcs2t un2 ( # ) ,Tun2mod(*) ) 


Tcs2t uni (*> , Tcs2tun2 ( *) ,Tun2mod(*) > 


Tcs2t uni (M , Tcs2t un2 ( * ) ,Tun2mod(M > 


Tcs2t uni (*) ,Tcs2tun2 (M ,Tun2mod(*) > 


, Tcs2tunl (*) ,Tcs2tun2 (*) ,Tun2mod(M) 


, Tcs2t uni (*) , Tcs2t un2 (*) ,Tun2mod (*) ) 


DISP HH 
FOR L=1 TO 9 

PRINT TABXY (1, L) ; RPTS (" ’*,120) 
NEXT L 

PRINTER IS PRT 
PRINT USING "#,0" 

DUMP GRAPHICS 
PRINT USING M i,0** 
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1660 

1670 

1680 

1690 Mlk4 : 

1700 

1710 

1720 

1730 

174 0 

1750 

1760 

1770 

1780 

1790 

1800 

1810 Mlk5: 
1820 

1830 MlkSa: 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 Ml k6 : 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 


2120 

2130 

2140 

2150 

2160 


2170 

2180 


2190 

2200 


2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 Ml k7 : 

2310 

2320 

2330 

2340 

2350 

2360 


PRINTER IS CRT 

CALL Menu_dlsp (Menu, Menu$ (*) ) 

RETURN 

CALL Enter value {"number of traverse posit ions", Npos, "K") 

REDIM Pos (Npos, 1) , Pname$ (Npos, 1) , P imageS (Npos, 1} , PunitsS (Npos, 1) 
MAT Pimage$= {"M4D.4D") 

MAT Punits$= ("in") 

FOR K=1 TO Npos 

PnameS (K, 1) ="Pos#"4VAL$ ( K) 


NEXT K 

GSTORE Gsa ve ( * ) 

CALL Change ( "VALUES" , Pos ( * ) , PnameS (*) , P imageS (*) , PunitsS (*) ) 
GLOAD Gsave ( *) 

CALL Menu_disp (Menu, MenuS (*) ) 

RETURN 

GOSUB Read_calc_f i 11 

CALL Enter_value (CHR$ <NUM< H X") +Paxis-1) ,Mod(Paxis) ,"K") 

ON KBD CALL Do_nothing 
DISP "Moving" 


Movement=Mod (Paxis) , . . _ ~ , „ Tw 

CALL Tcs8move ( @Tcs8 , Mod { *) , Tun (*) , Tcsl ( M , Tcs2 { * ) , Mod2t un ( * ) , Tun2tcsl ( ),Tun2tcs2( ), Tx 

Rx", "MODEL", "ABSOLUTE" , Paxis, Movement) 

CALL TcsSprint (Mod (*) , Tun( *) , Tcsl ( *) # Tcs2 ( *) ) 

CALL Tcs8read(8Tcs8, Mod<*>, TunC), Tcsl (*) , Tcs2 (*) , Tcs 2 tunl (*) , Tcs2tun2 (*) . Tun2mod ( )) 
GOSUB Calc 
GOSUB Fill 
DISP "" 

OFF KBD 
RETURN 

CALL Fix (Array ( * ) , NameS (*) , Image$ ( * ) , Unit s$ { * ) ) 

DISP "Press any key to TAKE DATA" 

CALL Rt_histo OLvdas, Symbols (*) , 1) 

Cmask=Coin (1) *l+Coin<2) *2+Coin (3) *4 


Nsam=MIN (Nreads, 1000) 


Da te=T IMEDATE 


& 


Time=Date 
At ime=10 

CALL Lvdas_take (QLvdas , At ime, Ct ime, At_exp, Ct_exp, Cmask, Nsam) 

IF Nsam>l THEN 

OUTPUT PRT; RPTS ("=", 140) 

CALL Data_reduce (Atexp, Ct_exp, Nsam) 

! CALL Data_histo (Array (*) ,Nsam) 

CALL Pt_histo ( Symbols ( *) ,Run, Fi le, Mod { Paxi s) ,Nsam) 

CALL Data_cl ip (Nsam, Urn in, Umax, Vmin, Vmax) 

CALL Data sum ( Sum (*), N (M, Nsam) 

CALL Data>alc<N(M,Sum(*),U,V,W,A,B,I0,C0,Ul, VI, W1.A1.B1, II, Cl, Ulvl, Vlwl, Wlul, Albl.Ulal.Vlal, Wlal) 

Data_print (Paxis, Mod (Paxis) , Nsam, "MHz“ ,U, V, W, A, B, I0,C0,U1, VI, Wl, A1 , Bl, II, Cl, Ulvl, Vlwl,Wlul, Albl ,Ulal, VI 
al , Wlal ) 

CALL Data_fconvert (Array (*) ) 

CALL Data_aconvert (Ga in) 

CALL Data s um ( S um (*),N(*),Nsam) * t , . « i nui vial w 1 a l i 

CALL Data” calc (N ( * ) , Sum ( * ) , U. V. H. A, B, 10, CO , U1 , VI , Wl, Al , Bl , 11 , Cl , Ulvl, Vlwl , Wlul , Albl , Ulal, Vial, Wlal) 

Data_print (Paxis, Mod ( Paxis) , Nsam, »LDV« , U, V, W, A. B. 10. CO , U1 , VI, Wl , Al . Bl . II. Cl, Ulvl , Vlwl , Wlul, Albl ,Ulal, VI 

al , Wlal) 

CALL Data_trnsfrm(Ldv2tun ( *) , U, V,W,U1, VI, Wl,Ulvl, Vlwl, Wlul) 

Data_print<Paxis.Mod<PaxIS),Nsam.-TUN",U,V,W,A,B,IO,CO,Ul,Vl,Wl,Al,Bl,Il,Cl,Ulvl,Vlwl,Wlul.Albl.Ulal,Vl 

al , Wlal ) 

CALL Data t rnsfrm { Tun2mod (*), U,V, W, Ul, VI, Wl , Ulvl, Vlwl , Wlul ) 

Data_print(Pa*is,Mod(Paxi S ). Nsam. -MOD”. U, V. W. A. B, 10 , CO. Ul. VI, Wl, Al . Bl. II, Cl,Ulvl, Vlwl, Wlul. Albl.Ulal. VI 

al Wlal) 

CALL Data plot (Array**) , Symbols (M , 6, Mod (Paxis ) , U, V, W, l/Uinf,N(l, 1) , N (2 , 1) , N ( 3, 1 ) ) 

CALL Data_plot (Array <*) , Symbols**} , 7,Mod (Paxis) , U 1 , VI , Wl , 1 /Uinf . N <1 , 2> , N { , ' 3 3}) 

CALL Data_plot (Array (*> , Symbols (M ,8, Mod (Paxis) , Ulvl, Vlwl, Wlul, 1/Uinf 2 , N (1 , 3 , N (2, 3) , N (3, 3 ) 

CALL Dataplot (Array {*), Symbols (*) , 9 , Mod ( Paxi s ) , Tt emp, Uinf , Uedge, 1 , N ( 4 , 1) ,1,1) 

OUTPUT PRT; RPTS ("=", 140) 

GOSUB Stor e_f i le 
Fi le=File+l 


END IF 
RETURN 
Quit=0 

ON KBD GOSUB Quit 
FOR J=1 TO Npos 

Mod(Paxis) =Pos (J,l) 
GOSUB Mlk5a 
GOSUB Mlk6 
IF Quit THEN 2380 
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2370 

2380 

2390 

2400 

2410 

2420 Mlk8: 

2430 

2440 

2450 M2kl: 

2460 

2470 

2480 M2k2: 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 M2k3: 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 

2680 M2k4 : 

2690 

2700 

2710 

2720 

2730 

2740 

2750 


2760 

M2k5 : 

2770 

M2k6: 

2780 

M2k7 : 

2790 

M2k8: 

2800 


2810 


2820 


2830 


2840 


2850 


2860 


2870 


2880 


2890 


2900 


2910 

M3kl : 

2920 


2930 


2940 

M3k2 

2950 


2960 


2970 

M3k3 

2980 


2990 

M3k4 


3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 M3k5: 
3140 M3k5a: 
3150 


NEXT J 
OFF KBD 
GOSUB Onjcey 

CALL Menu_disp (Menu,Menu$ ( * > > 

RETURN 

DISP "Press any key to return to main menu 
CALL Rt_histo (QLvdas, Symbols (M , 1) 

RETURN 

Menu=l 

CALL Menu_disp (Menu, MenuS (*) ) 

RETURN 

SELECT TRIMS (MenuS (Menu, Key) (20] ) 

CASE "Tx & Rx M 

MenuS (Menu, Key ) [20]="Tx" 

CASE "Tx" 

MenuS (Menu , Key ) [20]=”Rx“ 

CASE "Rx" 

MenuS (Menu, Key) [20 ) =”Tx & Rx" 

END SELECT 

CALL Menu_disp (Menu, MenuS (*> ) 

RETURN 

SELECT TRIMS (MenuS (Menu, Key) [20]) 

CASE "MODEL" 

MenuS (Menu, Key ) (20 ] ="TUNNEL M 
CASE "TUNNEL" 

MenuS (Menu, Key) [20]="LASER" 

CASE "LASER" 

MenuS (Menu, Key 5 [20]="MODEL" 

END SELECT 

CALL Menu_disp (Menu, MenuS <*) ) 

RETURN 

SELECT TRIMS (MenuS (Menu, Key) [20]) 

CASE "ABSOLUTE" 

MenuS (Menu, Key) (20 ] -"RELATIVE” 

CASE "RELATIVE" 

MenuS (Menu, Key) [20 | »• ABSOLUTE" 

END SELECT 

CALL Menu_disp (Menu, MenuS (*) ) 

RETURN 


SideS=TRIM$ (MenuS (Menu, 2) [20]) 

Coor$=TRIMS (MenuS (Menu, 3) [20]) 

Mode$=TRIMS (MenuS (Menu, 4) [20]) 

CALL Enter_value(Mode$&" Movement ", Movement, "4 D. SD ) 

ON KBD CALL Do_nothing 

CALL TcsB read ( 3Tcs8 , Mod t * ) , Tun ( * ) , Tcsl ( * ) , Tcs2 ( * ) , Tcs2tunl ( * ) 


Tcs2tun2 (*) ,Tun2mod<*) ) 


CALL^Tcs8read'(3Tcs8, Mod ( *) , Tun (M * Tcsl (*) » Tcs2 ,*) # Tcs2tunl {*) , Tcs2t un2 ( M , Tun2mod (* ) ) 

DISP "" 

OFF KBD 

RETURN 

Menu=l 

CALL Menu_disp (Menu, MenuS {*) ) 

RETURN 

CALL Enter_value ("Run" , Run, "3D . 2D") 

CALL Ente revalue ("File", File, "3D") 

RETURN 

CALL Enter_value ("Number of Samples ",Nreads, K 
RETURN 

CALL Enter_string (“Traverse Axis for Profile “,Paxls$, "K") 

SELECT PaxisS 
CASE "X" 

Paxis=l 
CASE H Y" 

Paxis=2 
CASE "Z" 

Paxis=3 
CASE "A" 

Pa xi s = 4 
CASE ELSE 

GOTO M3k4 
END SELECT 
RETURN 

GOSUB Read_calc_fill 
! OUTPUT PRT USING ”#,@,2/ M 
OUTPUT PRT USING ”1,2/" 
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3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 M3k6: 
3310 

3320 M3k7: 

3330 

3340 

3350 M3k8: 

3360 

3370 

3380 M4kl: 

3390 

3400 

3410 M4k2: 

3420 

3430 

3440 M4k3: 

3450 

3460 

3470 M4k4: 

3480 

3490 

3500 M4k5: 

3510 

3520 

3530 

3540 

3550 

3560 M4k6 : 

3570 

3580 

3590 

3600 

3610 

3620 M4k7: 

3630 

3640 

3650 

3660 

3670 

3680 M4k8: 

3690 

3700 

3710 

3720 

3730 

3740 M5kl : 

3750 

3760 

3770 M5k2: 
3780 
3790 
3800 

3810 M5k3: 
3820 
3830 
3840 

3850 M5k4: 
3860 
3870 
3880 

3890 M5k5: 
3900 
3910 
3920 

3930 M5k6: 

3940 

3950 


OUTPUT PRT USING “20X, K, “TRAVERSE COORDINATE TRANSFORMATION MATR TUNNEL" , Tcs2tunl (*} 

OUTPUT PRT USING -20X, K, /. « U3X, 4 (8D.5D) . !\ r» “Transn, TUNNEL" ,Tca2tun2 ( * ) 

OUTPUT PRT USING "20X, K, /, 4 (13X, 4 < 8D.5D} # /) » e de TU nNEL to TCS 8 " , Tun2t csl ( * > 

OUTPUT PRT USING "20X, K, /.* <13X, 4 (8D. SD) , /) "j „ R "”" lng side TUNNEL to TCS8",Tun2tc S 2 (*> 
OUTPUT PRT USING “20X, *' ' ' . “TUNNEL to MODEL", T U n2mod<*> 

OUTPUT PRT USING 2 °*' 3 go'lo ' / " ; “MODEL to TUNNEL" , Mod2tun (* ) 

OUTPUT PRT USING C ^ INATE TRANSFORMATION MATRICIES" 

OUTPUT PRT USING 20X,K,/ , to TUNNEL" , Ldv2tun ( *) 


LASER to TUNNEL" , Ldv2 t un ( * ) 
“TUNNEL to LASER”, Tun21dv<*) 
“TUNNEL to MODEL", Tun2mod(*) 
"MODEL to TUNNEL" , Mod2tun ( *) 


1 L W i- f W f ’ » ' 

OUTPUT PRT USING "20X, K, /, 3 (1 3X, 3 ( 8D . 5D) , / ) 

OUTPUT PRT USING " 20X, K, / , 3 ( 13X, 3 < 8 D . 5D) , / ) " 

OUTPUT PRT USING "20X, K, / , 3 ( 1 3X, 3 { 8D . 5D) , / ) " 

OUTPUT PRT USING "20X, K, /, 3 (13X, 3 (8D.5D) , /) 

OUTPUT PRT USING "#,0" 

CALL^etup .graph (Array I * ) , Images (* ) , Paxis, Symbols ( *) ) 

RETURN 

Menu=4 

CALL Menu_disp (Menu, MenuS (*) ) 

RETURN 

Menu=5 

CALL Menu_disp (Menu, MenuS (*) ) 

RETURN 

Menu=3 

CALL Menu_disp (Menu, MenuS (*) ) 

RETURN 

GOSUB Read_array 
GOSUB Read__calc_f ill 
RETURN 

GOSUB Read_calc_.fi 11 
GOSUB Save_ar ray 
RETURN 

GOSUB Rea d_ca 1 c_f ill 
GOSUB Pr int_header 
RETURN 

GSTORE Gsa ve ( * ) 

GOSUB Read calc_£ill nnitsSf*)) 

CALL Change ( "VALUES" , Array ( * ) , NameS (*) , ImageS ( *) , UnitsS ( )) 

GOSUB Read_calc_f i 11 
GLOAD Gsavet*) 

RETURN 

GSTORE Gsa ve ( * ) 

GOSUB Read calc_fill 

CALL Change ("NAMES", Array (*) , NameS (*) , ImageS (*) , UnitsS )) 
GOSUB Read_calc_f ill 
GLOAD Gsave ( * ) 

RETURN 

GSTORE Gsave (*} 

GOSUB Read_calc_f ill !InU , s (M) 

CALL Change (“UNITS" , Array ( * ) , NameS ( # ) , ImageS ),Units$( 

GOSUB Read_calc_f i 11 
GLOAD Gsave (*) 

RETURN 

GSTORE Gsave (*) 

GOSUB Read calc_£ill rinltsSf*)) 

CALL Change ( "IMAGES" , Array ( * ) , NameS (*) , ImageS ),Units$( )) 

GOSUB Read_calc_fi 11 
GLOAD Gsave ( * ) 


RETURN 

Menu=3 

CALL Menu_disp (Menu, MenuS (*> ) 
RETURN 

CALL Tcs8set ( "P" , @Tcs8 } 
GRAPHICS ON 

CALL Menu_disp (Menu, MenuS (*> ) 
RETURN 

CALL TcsBset ("U“, 3Tcs8) 
GRAPHICS ON 

CALL Menu_disp (Menu, MenuS (*) ) 
RETURN 

CALL Tcs 8 set (*' R" , 0Tcs8) 
GRAPHICS ON 

CALL Menu_disp (Menu, MenuS ( M) 
RETURN 

CALL Tcs8set ( " V" , @Tcs8 ) 
GRAPHICS on 

CALL Menu_disp (Menu, MenuS {*>> 
RETURN 

CALL TcsBset ("A", 0Tcs85 
GRAPHICS ON 

CALL Menu_dlsp (Menu, MenuS (*) ) 


1 view and set TCS 8 Positions 


t View and set TCS 8 counts per Unit length 


j view and set TCS8 counts per Revolution 


I View and set TCS 8 Velocities 


i view and set TCS 8 Accelerations 
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3960 

RETURN 

3970 M5k7: 

CALL Enter value (”Run H , Run, "3D. 2D”) 

3980 

CALL Enter value ("File”, File, ” 3D") 

3990 

FOR Run=Run TO Run 

4000 

CLEAR SCREEN 

4010 

FOR Fi le=l TO 100 

4020 

GOSUB Read_f ile 

4030 

IF File$=“ “ THEN 4170 

4040 

CALL Data reduce (At exp, Ct_exp, Nsam) 

4050 

Vwprt (1,1) =50 

4060 

Vwprt (1,2) =225 

4070 

Vwprt (2,1) =275 

4080 

Vwprt (2,2) =450 

4090 

Vwprt (4,1) =500 

4100 

Vwprt ( 4 , 2) =675 

4110 

FOR G=1 TO 5 

4120 

Vwprt (G, 3) =102S-65*File 

4130 

Vwprt (G,4) =1065-65*File 

4140 

NEXT G 

4150 

CALL Pt histo { Symbols ( *> , Run, File, Mod (Paxis) 

4160 

NEXT File 

4170 

DISP MM 

4180 

PRINTER IS PRT 

4190 

PRINT USING M #,@” 

4200 

DUMP GRAPHICS 

4210 

PRINT USING “#,0" 

4220 

PRINTER IS CRT 

4230 

NEXT Run 

4240 

CLEAR SCREEN 

4250 

CALL Set up_graph (Array (*) , Image$ (M , Paxis, Symbols ( *\ 

4260 

RETURN 

4270 M5k8 : 

CALL Enter val ue ( M Run” , Run, H 3D .2D" ) 

4280 

CALL Enter value ( ”Fi le” , Fi le, M 3D”) 

4290 

GOSUB Read_f ile 

4300 

IF File$=” " THEN RETURN 

4310 

GOSUB Print_header 

4320 

CALL Set up_graph (Array ( M , ImageS (*), Paxis, Symbols ( * 

4330 

! BEEP 

4340 

1DISP M SWITCH SWITCH TO B AND THEN PRESS <CONTINUE>" 

4350 

! PAUSE 


FOR Fi le=l TO 100 
GOSUB Read_f i le 
IF File$=" M THEN 4630 
Cmask=Coin (1> *l+Coin(2) *2+Coin(3) *4 
OUTPUT PRT ? RPTS ( ” = " , 14 0) 

CALL Data_reduce ( At_exp, Ct_exp, Nsam) 

ICALL Data_xfer (@Tcs8, Run, File, Ui{ # ) , Vi ( *) , Ai < * } , Va lid ( *) , Nsam) 

CALL Pt_hlsto( Symbols (*) , Run, Fi le, Mod ( Paxi s) ,Nsam) 

CALL Data_clip (Nsam, Urn in, Umax, Vmln, Vmax} 

CALL Data sum ( Sum (*), N (*), Nsam) 

CALL Data_calc (N ( * ) , Sum ( * ) , U, V, W, A, B, 10, CO, Ul, VI , W1 , Al , B1 , 1 1 , Cl , Ulvl , Vlwl , Wlul, Albl , Ulal, Vial , Wlal ) 

Data_pr int (Paxis, Mod (Paxis) , Nsam, ”MHz” , U, V, W, A, B, 1 0, CO , Ul , VI , Wl , Al , B1 , II, Cl, Ul vl, Vlwl, Wlul , Albl , Ulal , VI 
al , Wlal) 

CALL Data_fconvert (Array (*) ) 

CALL Data_aconvert (Gain) 

CALL Data sum < Sum (*), N {*), Nsam) , , 

CALL DatacalcINl*) ,Sura(*) ,U,V,H, A, B, 10, CO, 01. VI, Wl, Al , B1 , II, Cl , Ulvl, Vlwl, Wlul, Albl, Ulal. Vial, Wlal) 

Data_prlnt (Paxis, Mod (Paxis), Nsam, "LDV“,U,V,W, A, B, 10, CO, Ul, VI. W1.A1.B1. II, Cl, Ulvl, Vlwl, Wlul, Albl, Ulal. VL 
al , Wlal) 

CALL Data_trnsfrm(Ldv2tun<*> ,U,V,W, U1,V1,W1, Ulvl, Vlwl, Wlul) 

Datt_print (Paxis, Mod (Paxis), Nsam, "TUN“ , U, V, W, A, B, 10, CO, Ul, V1,W1,A1,B1, II, Cl, Ulvl, Vlwl, Wlul, Albl, Ulal, Vl 
al , Wlal) 

CALL Dat a_t rnsf rm (Tun2mod { * } , U, V, W, Ul, Vl, Wl, Ulvl, Vlwl, Wlul) 

Dataprinc (Paxis, Mod (Paxis), Nsam, "MOD”, U,V,W, A, B, 10, CO, Ul, Vl , Wl , Al , B1 , II, Cl, Ulvl, Vlwl, Wlul, Albl, Ulal, Vl 
al, Wlal) 

CALL Data p lot (Array < * ) , Symbols ( * ) , 6, Mod (Paxis) ,U,V,W, l/Uinf,N(l,l) ,N(2,1) ,N(3, 1) ) 

CALL Data plot (Array ( * ) , Symbols ( *) ,7, Mod (Paxis) , Ul , Vl , Wl , 1 /Uinf , N (1 , 2 ) , N (2, 2) , N <3 , 2) ) 

CALL Data~plot (Array (* ) , Symbols (*) , 8, Mod (Paxis) , Ulvl, Vlwl , Wlul , 1 /Uinf A 2 , N ( 1 , 3),N(2,3),N(3,3)) 

CALL Data_plot (Array (*) , Symbols (*) , 9, Mod (Paxis) ,Ttemp, Uinf , Uedge, 1 , N (4 , 1) , 1 , 1) 

OUTPUT PRT;RPT$ (*• = ”,140) 

NEXT File 
GOSUB Mlk3 
File=File-l 
GOSUB Read_f ile 
GOSUB Print_header 
GOSUB M3k5a 
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4680 

4690 

4700 

4710 

4720 

4730 Quit: 

4740 

4750 Print_header: 

4760 

4770 

4780 

4790 

4800 

4010 Read_calc_f ill 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 Copy_file: 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 Store header: 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 

5380 Store file: 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 


PRINTER IS CRT 

;®ISP "SWITCH SWITCH TO A AND THEN PRESS <CONTINUE>“ 

! PAUSE 
RETURN 
Quit=l 
RETURN 

CALL Array_print (Array {*)/ Name$ (*) ^ImageS ), 

PRINT USING 5 (K) " ;CHR$ (27) 4 "E" 

PRINTER IS CRT 
RETURN 
: GOSUB Read 
GOSUB Calc 
GOSUB Fill 

FOR X=1 TO SIZE (Array, 2) 

FOR Y=1 TO SIZE (Array, 1) 

Array { Y, X) =PROUND (Array (Y, X) ,-15) 

NEXT Y 
NEXT X 
RETURN 

FOR Run=l . 01 TO 6.01 

IF Run=l .01 THEN F2=9 
IF Run=2 .01 THEN F2=6 
IF Run=3 .01 THEN F2=5 
IF Run=4.01 THEN F2=ll 
IF Run=5 .01 THEN F2=0 
IF R U n=6.01 THEN F2=5 
FOR File=l TO F2 

Data$=":,1400,0, 1" 

GOSUB Read_file 
DataS-":, 1400, 0,0" 

GOSUB Store_file 
Da taS-":, 1400, 0,1" 

NEXT File 
NEXT Run 
RETURN 

DISP "Storing Header" 

Fi le$ = " R" 4 VALS (Run) &DataS 
ON ERROR GOTO 5280 
ASSIGN GData TO File? 

OFF ERROR 
FOR K=1 TO 10 
WAIT .2 
BEEP 

NEXT K n u rn « T < "K*M 

CALL Enter__str ing ( "Over Write old file ,L$, K } 

SELECT LSI 1,11 
CASE "Y","y H 

ASSIGN 0Data TO * 

PURGE File$ 

GOTO 5280 
CASE " N " , " n " 

CALL Enter__value ("Run" , Run, 3D. 2D ) 

CALL Enter_value ("File", File, " 3D") 

GOTO 5060 
CASE ELSE 

GOTO 5060 
END SELECT 
OFF ERROR 

Fslze=INT( (3200+4000*3+128*4+72*41/256*1.05+1) 

CREATE BOAT FileS, Fslze 

ASSIGN 0Data TO FileS m 

OUTPUT @ Data; Array (*) , NameS ( * ) , ImageS ), 

OUTPUT ,D.t.;T»n2t=. 1 <*).T»n2tc.2(*).Hod2tun ^un2 dv J 
OUTPUT 0Data;Tcs2tunl ( *) f Tcs2tun2(*J , Tun2mod ),Ldv2tun( 
ASSIGN @Dat a TO * 

PROTECT "R H 4 VAL$ (Run) sDat a $ , "TKM" 

RETURN 
GOSUB Calc 
GOSUB Fill 

IF File*l THEN GOSUB Store_header 
DISP "Storing Data" 

Fi leS= H R" &VALS (Run) &"F" 4VALS (File) 4Data$ 

ON ERROR GOTO 5630 
ASSIGN @Data TO FileS 
OFF ERROR 
FOR K*1 TO 10 
WAIT .2 
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5480 

5490 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 

5690 

5700 

5710 Read_header: 

5720 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5830 

5840 

5850 Read_file: 
5860 
5870 
5880 
5890 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
6040 

6050 Fills 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 


BEEP 
NEXT K 

CALL Ent er_str ing ( "Over Write old file *,L$,"K") 

SELECT L$[l,ll 
CASE "Y","y" 

ASSIGN QData TO * 

PURGE FileS 
GOTO 5630 
CASE "N","n" 

CALL Enter_val ue ( H Run" , Run, “3D -2D") 

CALL Ent er_val Lie ("File", File, " 3D") 

GOTO 5380 
CASE ELSE 

GOTO 5380 
END SELECT 
OFF ERROR 

Fsize=INT ( (3200+Nsam* 10*2+ 60+2 40) /256* 1.05+1) 

CREATE BDAT FileS, Fsize 
ASSIGN @Data TO FileS 

OUTPUT @Data Ar ray (* ) , Raw (*),N(*),Sum(*) 

ASSIGN 8Data TO * 

PROTECT "R" AVALS (Run) 4 “F" 4VALS (File) 4DataS , "TKM 
RETURN 

DISP "Reading Header" 

File$="R"4VAL$ (Run) 4 "<TKM>"4Data$ 

ON ERROR GOTO 5820 
ASSIGN @Data TO FileS 

ENTER 0Dat a; Ar ray ( *) , NameS (*) , ImageS (*) ,Units$ (*) 

CALL Fix (Array (*) , NameS ( *) , ImageS ( * ) , UnitsS (*) ) 

ENTER @Dat a;Tun2tcsl ( * ) , Tun2tcs2 (*) , Mod2t un ( * ) ,Tun21dv(*) 
ENTER @Dat a; Tcs2t uni (*) ,Tcs2tun2 (* ) , Tun2mod ( *) , Ldv2tun (*) 
ASSIGN @Data TO * 

OFF ERROR 
RETURN 
OFF ERROR 
File$= H " 

RETURN 

IF File-1 THEN GOSUB Read_header 
DISP "Reading Data" 

Fi le$="R”4VAL$ (Run) 4 " F " 4VALS (File) 4 "<TKM>" 4Dat a$ 

ON ERROR GOTO 6020 
ASSIGN @Da ta TO FileS 
ENTER @Dat a ; Ar ray ( *) 

CALL Fix (Array (*) , NameS (*) , ImageS ( * ) # Unit s$ { * > ) 

GOSUB Read 

REDIM Raw (1 :Nsam, 1 :10) 

ENTER @Dat a ; Ra w { * ) , N ( * ) , Sum ( * ) 

ASSIGN @Dat a TO * 

OFF ERROR 
Date=Array (1,1) 

Time=Array (2,1) 

Run=Ar ray (3,1) 

Fi le=Array (4,1) 

RETURN 
OFF ERROR 
File$= H " 

RETURN 

Array (1,1) =Dat e 
Array(l,2) =Mach 
Array (1,3) =St emp 
Array(l, 4) =Alphal 
Array (2, 1) =Time 
Array (2, 2) =Temp 
Array (2, 3) =Ttemp 
Array ( 2, 4 } =Alpha2 
Array (3,1) =Run 
Array (3,2) =Uedge 
Array (3,3) =Tt_mv 
Array (3, 4) =Alpha3 
Array (4,1) =File 
Array (4,2) =Uinf 
Array (4, 3) =Tt_raw 
Ar ray ( 4 , 4 ) =Theta 
MAT Ar ray ( 11 : 14, 1 ) = Mod 
MAT Array (11:14, 2) = Tun 
MAT Array (11:14,3) = Tcsl 
MAT Array (11:14, 4) = Tcs2 
MAT Array (21 , 1 : 3) = Beam_spc 
MAT Array (22, 1 :3) = Focl_len 
MAT Array (23, 1 :3) = Beamsep 


! Date 
! Time 

! Run Number 
! File Number 


! Date 

! Mach Number 

! Stagnation Temperature (°R) 

! Angle of Attack 
! Time 

! Room Temperature (°F) 

! Total Temperautue (°R) 

! Cone angle 
! Run Number 
! Uedge 

! Total Temperautue (mv) 

! Roll angle 
! File Number 
! Freestreem Velocity 

! Total Temperautue (raw voltage w/gain) 

! Tx Side OffAxis Angle 

! probe volume position in Model coordinates 
! Probe volume position in Tunnel coordinates 
! Tx side traverse position in Tcs8 coordinates 
! Rx side traverse position in Tcs8 coordinates 
! Beam spacing at lens 
! Focal length 

I Beam separation agnle in degrees (full angle) 


A-10 


6280 

6290 

6300 

6310 

6320 

6330 

6340 

6350 

6360 

6370 

6380 

6390 

6400 

6410 

6420 

6430 

6440 

6450 

6460 

6470 

6480 

6490 

6500 

6510 

6520 

6530 

6540 Read: 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6680 
6690 
6700 
6710 
6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6800 
6810 
6820 
6830 
6840 
6850 
6860 
6870 
6880 
6890 
6900 
6910 
6920 
6930 
6940 
6950 
6960 
6970 
6980 
6990 
7000 
7010 
7020 
7030 
7040 

7050 Calc: 

7060 

7070 


MAT Array (24, 1 : 3) = Wave_len 
MAT Array (25,1:3)= Frng_spc 
MAT Array (26, 1 : 3) = Brg_frq 
MAT Array (27,1:3)= Mlx_£rq 
MAT Ar ray ( 28 , 1 : 3) = Mea_sgn 
MAT Array ( 29, 1 : 3) - Brg_sgn 
MAT Array (30,1:3)= MIx_sgn 
MAT Array ( 31 , 1 : 3) = Coin 
MAT Ar ray ( 32 : 3 4 , 1 : 3) = Thata 
MAT Array (21:23,4) = Index 
Array (24 , 4) =Nreads 
Array (25, 4) =Ns am 
Array (26, 4)=Atime 

Array (27,4) =Ct ime 
Array (28, 4) =At_exp 
Array <29, 4) =Ct_exp 
Ar ray ( 30 , 4 ) =Ga in 
Array (31, 4)=Paxis 
Array (35,1) -Umin 
Array (35, 2) =Vmin 
Array ( 35, 3) =Wmin 
Array(36,l) =Umax 
Array (36,2) =Vmax 
Ar ray ( 3 6 , 3 ) =Wmax 
Ar ray ( 36, 4 ) =C1 ip 
RETURN 

!Date=Array (1, 1) 

Date=TIMEDAT£ 

Mach=Ar ray (1,2) 

St emp=Ar ray ( 1, 3) 

Alphal =Array (1,4) 

! Time=Ar ray (2, 1) 

Time=Date 
Temp=Ar ray (2, 2) 

Ttemp=Array (2,3) 

Alpha 2 =Ar ray (2 , 4) 

! Run=Ar ray (3,1) 

Uedge=Array (3,2) 

Tt _mv=Array (3, 3) 

A1 pha3=Arr ay (3,4) 

! File=Array (4, 1) 

Ui nf=Array (4,2) 

Tt_raw=Array (4,3) 

Theta=Array (4, 4) 

MAT Mod = Array (11:14, 1) 

MAT Tun= Array (11 : 14, 2 ) 

MAT Tcsl = Array (11 :14, 3) 

MAT Tcs2= Array (11 :14, 4) 

MAT Beam_spc= Array (21 , 1 : 3 ) 

MAT Focl_len= Array (22, 1 : 3) 

MAT Beam_sep= Array (23 , 1 : 3) 

MAT Wave_len= Ar ray (24 , 1 : 3 ) 

MAT Fr ng_spc= Array (25, 1 : 3) 

MAT Brg_frq= Ar ray ( 26, 1 : 3) 

MAT Mix_frq= Array (27, 1 : 3) 

MAT Mea sgn= Array (28, 1 : 3) 

MAT Brg_sgn= Array (29, 1 : 3) 

MAT Mix_sgn= Array (30, 1 : 3) 

MAT Coin= Array (31 , 1 : 3) 

MAT Thata= Arr ay (32 : 34 , 1 : 3) 

MAT Index= Array (21 : 23 , 4) 
Nreads=Array (24 , 4) 

Nsam=Array (25, 4) 

At ime=Array (26, 4) 

Ct ime=Array (27 , 4) 

At_exp=Array (28, 4) 

Ct_exp=Array (29,4) 

Gain=Array (30,4) 

Paxis=Array (31,4) 

Umin=Array (35, 1) 

Vmin=Array (35, 2) 

Wmin=Array (35,3) 

Umax=Array (36, 1) 

Vmax=Ar ray (36, 2) 

Wmax=Array (36, 3) 

Cl ip=Array (36, 4) 

RETURN 

FOR K=1 TO 3 

IF 1=2 THEN 

Beaml=Thet a+ATN (Beam_ 


Wave length 
Fringe spacing 
Bragg frequency 

Cii'srs i. 

Sign of bragg frequency in velocity equation 

Sign of mixing frequency in velocity equation 

; Colncedence criteria 

i Angles between measured (ABC) & tunnel 
i Inde x of refraction of for laser light 
! Number of desired samples 
! Number of acquired samples 
! Acquisition time 
! Colncedence time 
! Acquisition time exponent 
j coincedence time exponent 
j Tunnel Total Temperature Voltage Gain 
! Axis for plots 

! Frequency minimum for U calculat on 
t Frequency minimum for V calculation 
I Frequency minimum for W calculation 
t Frequency maximum for U calculation 
! Frequency maximum for V calculation 
! Frequency maximum for W calculation 
! Clip 

! Date 
! Date 

! Mach Number 

! stagnation Temperature (°R> 

1 Angle of Attack 
! Time 
! Time 

! Room Temperature (*F> 

! Total Temperautue (°R) 

! Cone angle 
! Run Number 
! Uedge 

! Total Temperautue (mv) 

1 Roll angle 
• File Number 
I Freestreem Velocity 

! Total Temperautue (raw voltage w/gain) 

! Tx Side OffAxis Angle 

. Probe volume position In Model coordinates 
'■ probe volume position In Tunnel coordinates 
, T x side traverse position In Tcs8 coordinates 
i R X side traverse position In Tcs8 coor nates 
! Beam spacing at lens 
! Focal length 

1 Beam separation agnle in degrees (full angle) 

! Wave length 
! Fringe spacing 
j Bragg frequency 
i Mixina frequency 

I Sign of measured frequency in velocity equation 
. sign of bragg frequency in velocity equation 

! Sign of mixing frequency In velocity equation 
l Colncedence criteria 

t Angles between measured (ABC) & tunnel 
. index of refraction of for laser light 
t Number of desired samples 
I Number of acquired samples 
; Acquisition time 
! Coincedence time 
i Acquisition time exponent 
j coincedence time exponent 
1 Tunnel Total Temperature Voltage Gain 
! Axis for plots 

j Frequency minimum for U calculation 
t Frequency minimum for V calculation 
! Frequency minimum for W calculation 
j Frequency maximum for U calculation 
i Frequency maximum for V calculation 
; Frequency maximum for W calculation 
! Clip 


;pc (K) /2/Focl_len (K) ) 


(UWJ) coordinate systems 
(eg: Nair , Nglass, Nwater) 


(UVW) coordinate systems 
(eg: Nair , Nglass, Nwater) 


A-ll 


7080 



Beam2=Theta-ATN (Beam spc (K) /2/Foclien (K) } 

7090 



ELSE 

7100 



Beaml=0+ATN ( Beam spc(K) /2/Focl _len (K) ) 

7110 



Beam2=0-ATN (Beam spc (K) /2/Focl_len (K) ) 

7120 



END IF 

7130 



Beaml=ASN( Index (1) /Index (3) *SIN (Beaml) ) 

7140 



Beam2 =ASN ( Index { 1 ) /Index (3) *SIN(Beam2) ) 

7150 



Beam sep (K) =Beaml-Beam2 

7160 



Frng spc(K)=Wave len (K) / (2*$IN (Beamsep (K) /2) ) /1000 

7170 



NEXT K 

7180 



MAT Array (23, 1 :3) = Beam sep ! Beam separation agnle 

7190 



MAT Array (25, 1 : 3) = Frng spc ! Fringe spacing 

7200 



CALL Ctm tcsl (Tcs2tunl {*) , Tun2tcsl (*) ) 

7210 



CALL Ctm tcs2 (Tcs2tun2 (*) , Tun2tcs2 (*) ) 

7220 



CALL Ctm ldv (Index (* ) , Thata ( *) ,Tun21dv < M , Ldv2tun { * ) ) 

7230 



CALL Ctm mod (Alphal,Alpha2,Alpha3, Mod2 tun ( * ) r Tun2mod ( * ) ) 

7240 



CALL Lvdas_sample_c(0Lvdas, 4, Table (M , Vave,Vsdv, Tave,Tsdv) 

7250 



Tt raw=Vave 

7260 



Tt mv=Tt raw/Gain* 1000 

7270 



CALL Temp (Mach, Tt_mv, Stemp, Ttemp) 

7280 



Uinf=Mach*49. 0*SQR (Stemp) * . 3048 

7290 



!Uinf=20.043*Mach*SQR( (273+5/9* (Temp-32) ) / ( 1+ . 2*Mach A 2) ) 

7300 



Uedge=Uinf 

7310 



Cmask=Coin (1) *l+Coin (2) *2 + Coin (3) *4 

7320 



SELECT Paxis 

7330 



CASE 1 

7340 



Paxis?="X" 

7350 



CASE 2 

7360 



Paxis$="Y H 

7370 



CASE 3 

7380 



Paxis?="Z" 

7390 



CASE 4 

7400 



Paxis? ="A H 

7410 



CASE ELSE 

7420 



Paxis=2 

7430 



Paxis$="Y" 

7440 



GOTO M3k4 

7450 



END SELECT 

7460 



IF Run=0 OR File=0 THEN 

7470 



CALL Enter value ("Run Number " , Run , " 3D . 2D" ) 

7480 



CALL Enter_value ("File Number ", File, "3D") 

7490 



GOTO 7460 

7500 



END IF 

7510 



RETURN 

7520 

Read_ 

array : 

ON ERROR GOTO 7600 

7530 



ASSIGN @Fi le TO "ARRAY "& System? 

7540 



ENTER @ File; Ar ray (*) ,Name$ (M , Image? (*) , UnitsS (*) 

7550 



ENTER 0File;Tun2tcsl (* ) f Tun2tcs2 (*) , Mod2tun ( * ) , Tun21dv (* ) 

7560 



ENTER 3File;Tcs2tunl (*) ,Tcs2tun2 (*) ,Tun2mod(*) ,Ldv2tun (*) 

7570 



ASSIGN 0F1 le TO * 

7580 



OFF ERROR 

7590 



RETURN 

7600 



OFF ERROR 

7610 



ASSIGN 3File TO * 

7620 



ON ERROR GOTO 7640 

7630 



PURGE " ARRAY System? 

7640 



OFF ERROR 

7650 



CALL Array_ini t (Name? (*) .Array (*) , Image? {*) , Units? <*) ) 

7660 



CREATE BDAT "ARRAY“&SystemS, 50 

7670 



GOSUB Save_array 

7680 



RETURN 

7690 

Save 

array : 

ASSIGN @Fi le TO "ARRAY"iSystem? 

7700 



OUTPUT @File; Array (*) ,Name?{*) , Image? (*) ,Units? (*) 

7710 



OUTPUT 0Fi le;Tun2tcsl ( * ) , Tun2tcs2 ( *) , Mod2t un ( * ) , Tun21dv ( * ) 

7720 



OUTPUT 0Fi le;Tcs2t uni ( * ) , Tcs2tun2 ( *) , Tun2mod ( * ) , Ldv2tun ( * ) 

7730 



ASSIGN 3 FI le TO * 

7740 



RETURN 

7750 



END 

7760 

Do nothing: 

SUB Do-nothing 

7770 



K? = KBD? 

7780 



SUBEND 

7790 

7800 

Menu 

Menu 

read: 

SUB Menu_read (Menu? (M ) 

7810 



OPTION BASE 1 

7820 



DIM L$ [ 80 ] 

7830 



FOR Menu=l TO SI 2E (Menu? , 1 ) 

7840 



FOR Key=l TO 8 

7850 



Menu? (Menu, Key) ="M"&VALS (Menu) i"K"AVAL? (Key) fc" : 

7860 



NEXT Key 

7870 



NEXT Menu 


(full angle) 


t t i < i ! t i j I i t 


i t 1 t t i » r i j r | t j | r i 
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7880 

7890 

7900 

7910 

7920 

7930 

7940 

7950 

7960 

7970 

7980 

7990 

8000 

8010 

8020 

8030 

8040 

8050 

8060 

8070 

8080 

8090 

8100 

8110 

8120 

8130 

8140 

8150 

8160 

8170 

8180 

8190 

8200 

8210 

8220' 

8230 

8240 

8250 

8260 

8270 

8280 

8290 

8300 

8310 

8320 

8330 

8340 

8350 Menu_disp: 

8360 

8370 

8380 

8390 

8400 

8410 

8420 

8430 

8440 

8450 Menu_status: 

8460 

8470 

8480 

8490 

8500 Enter: 

8510 Enter_value: 
8520 
8530 
8540 
8550 
8560 
8570 
8580 
8590 
8600 
8610 
8620 

8630 Enter_string: 


ON ERROR GOTO 7950 
WHILE 1=1 
READ L$ 

Menu=VAL <L$ [2,2] ) 
Key=VAL (L$ [ 4 , 4 ] > 
Menu? (Menu, Key ) =L$ 

end while 


SUBEXIT 
DATA "M1K1: 


Menu2: Laser Alignment" 

"M2K1: Return to main menu" 
"M2K2: Sides : Tx 4 Rx" 

"M2K3 : Coordinates: MODEL" 
“M2K4 : Mode S ABSOLUTE" 


DATA "M2K4 : Mode 

DA TA "M2K5 : Move X" 

Q A -p A "M2K6: Move Y" 

DA TA "M2K7: Move Z" 

DATA "M2K8: Move A" 

DATA "M1K2: Menu3: Pre Run* 

data "M3K1 : Return t 

DATA "M3K2 : Enter R\ 

data "M3K3 : Enter Ns 

DATA "M3K4 : Select 

DATA "M3K5: Print C< 

DATA "M3K6 : Setup G 

DA T A "M3K7: Menu4: 

DATA "M4K1: 

DATA "M4K2: 

DATA "M4K3: 

DATA "M4K4: 

DATA "M4K5: 

DATA M M4K6: 

DATA "M4K7: 

DATA "M4K8: 

DATA “M3K8: MenuS: 

DATA "M5K1 : f 

DATA "M5K2: \ 

DATA M M5K3: 1 

DATA H M5K4: 1 

DATA "M5K5: 


"M3K1: Return to MAIN menu" 

"M3K2: Enter Run 4 File Numbers" 

"M3K3: Enter Number of Samples ^ 

"M3K4: Select Traverse Axis for Profile" ^ 

"M3K5 : Print Coordinate Transformation Matricies 

"M3K6 : Setup Graphics" 

"M3K7: Menu4 : Tunnel Conditions" 

"M4K1: Return to PRE RUN menu" 

"M4K2: Load Tunnel Conditions" 

M M4K3: Save Tunnel Conditions" 
m M4K4: Print Tunnel Conditions" 

"M4K5: Enter Tunnel Condition Data"^ 
m M 4K6: Enter Tunnel Condition Names" 
"M4K7: Enter Tunnel Condition Units''^ 
"M4K8: Enter Tunnel Condition Images 

"M3K8 : MenuS: Traverse" 

"M5K1 : Return to TRAVERSE menu' 

"M5K2: View 4 Set TCS8 Positions" 


"M5K3: View 4 Set TCS8 Units" 

»M5K4: View 4 Set TCS8 Revolution" 
-M5K5: View 4 Set TCS8 Velocity" 
"M5K6: View 4 Set TCS8 Acceleration" 


DATA view * 

DATA "M1K3: Post Run (Dump Graphics) " 

DATA "M1K4: Set Auto Move Positions" 

DATA "M1K5: Move traverse" 

DATA "M1K6: Take data" 

DATA "M1K7; Auto move and take" 

DATA "M1K8: Display Histograms" 

SUBEND 

SUB Me nu_disp (Menu, MenuS (*) ) 

PRINTER IS CRT 
PRINT CHR$ (128) ; 

IF Menu=0 THEN Menu=l 

FOR Key=l TO 8 Kevl4RPT$(" ", 50-LEN (MenuS (Menu, Key) ) ) 

MenuS (Menu, Key) =Menu$ (Menu, Key ) 4Kfi^\ 

PRINT TABXY (1 , Key) ; MenuS (Menu, Key) [ 3 ] 

NEXT Key 

PRINT CHRS (128) ? 

SUBEND 

SUB Menu_status (Menu, Key, Pen, MenuS ( )) 

PRINT^TABXY^l^Key) ;CHft$ (129-Pen) ; MenuS (Menu, Key) [3 ] ?CHR$ (128) 

WAIT .1 

SUBEND . , , , , , , , . , . , , , M t I , t i I t t t ! m ! I ! !!!!!!!!!!!!!!! ! 


!!!!!! !!!!!!! I I! ! I I J ‘ ‘ * 

SUB Enter_value (NameS, Value, ImageS) cnarxiT 

IF Name$="Date" OR NameS="Time" THEN SUBEXIT 
DISP CHRS (129) ; 

DISP USING 8550; NameS 

IF A Image$<>"“ THEN DISP USING •> t s ImageS ; Value 

IF Image$= K ” THEN DISP USING «», K",- Value 

DISP USING 8590; NameS 

IMAGE #," Enter new ",K 

INPUT " ? ", Value 

DISP CHRS (128) ; 

SUBEND 

SUB Enter_string (NameS , ValueS, ImageS) 

DISP CHRS (129) ; 

DISP USING 8660;Name$ 

IMAGE # , "Old 

DISP USING " 4 lmage$;ValueS 
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8680 

8690 

8700 

8710 

8720 

8730 Array: 

8740 Array_init: 
8750 
8760 
8770 
8780 
8790 
8800 
8810 
8820 
8830 
8840 
8850 
8860 
8870 
8880 
8890 
8900 
8910 
8920 
8930 
8940 
8950 
8960 
8970 
8980 
8990 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 
9200 
9210 
9220 
9230 
9240 
9250 
9260 
9270 
9280 
9290 
9300 
9310 
9320 
9330 
9340 
9350 
9360 
9370 
9380 
9390 
9400 
9410 
9420 
9430 
9440 
9450 
94 60 
9470 


DISP USING 8690; Name? 

IMAGE Enter new H ,K 

INPUT " ? ", ValueS 
DISP CHR$ ( 128) ; 

SUBEND ( f 1 ( m U !!!!!!!!! ! 

SUB' Arrayiinit (Names (*), Array!*), Image? (*),UnitsS(M) 

ON ERROR GOTO 8930 
READ Y 

FOR X=1 TO SI2E <Name$ , 2 ) , , v 

READ NameS (Y,X) ,Array(V,X) , ImageS ( Y, X) , Unit sS ( Y, 

SELECT ImageS (Y,X) 

CASE "0" 

ImageS (Y, X) = "9D" 

CASE ”1” TO **7“ 

Af ter=VAL ( ImageS (Y , X) ) 

Before=8-After „ yi _ WBnH 

ImageS (Y,X) =VALS (Before) 4"D. M iVAL$ (After) 4 

CASE "K" 

CASE "N" 

CASE ELSE 

ImageS (Y, X) =" 9D" 

END SELECT 
NEXT X 


GOTO 8760 
SUBEXIT 
! Y 

DATA 1, 
DATA 2, 
DATA 3, 
DATA 4 , 

I Y 

DATA 11, 
DATA 12, 
DATA 13, 
DATA 14, 

! Y 

DATA 21, 
DATA 22, 
DATA 23, 
DATA 24, 


******** *x=l ********* 


*X=2* 

Date , 0,0,"" * 

Mach 

, 7. 

Time , 0,0,"" , 

Temp 

, 68 

Run , 5,2,"" , 

Uedge 

* 

File , 0,0,"" , 

Uinf 


******** *x=l ******** * 

******** 

*X=2 * 

Xmod , 0, 4 , in , 

Xt un 

• 

Ymod , 0, 4 , in , 

Ytun 

* 

Zmod , 0, 4 , in , 

Ztun 

' 

Amod , 0 , 4 , in , 

Atun 

' 

*********X*1********* 

******** 

*X=2 * 


UBeamSpc , .3125, 3, in 
UFoclLen, 30 . 00, 3, in 
(JBeamSep ,0.000,3,° 
UWaveLen , 514 . 5, 3 , nm 


DATA 25, 

UFrngSpc, 

00.00, 3, um , 

DATA 26, 

Ubrag , 40 . 00, 4 , MHz , 

DATA 27, 

Umix 

0.00, 4 , MHz , 

DATA 28, 

UmeaSgn , 

-1,0,"" , 

DATA 29, 

UbrgSgn 

+1,0,"" , 

DATA 30, 

UmixSgn 

-1,0,"" , 

DATA 31, 

U coin 

1,0,"" , 

DATA 32, 

ThetaAU 

0,4,° , 

DATA 33, 

ThetaBU 

90,4,° , 

DATA 34, 

ThetaCU 

90,4,° , 

DATA 35, 

UFreqMin 

8, 4, MHz, 

DATA 36, 

UFreqMax 

32, 4, MHz, 

t Y 

******** 

******* 

DATA 41, 

Xminl 

0.00,0,"" , 

DATA 42, 

Xmin2 

0.00,0,"" * 

DATA 43, 

Xmin3 

0.00,0,"" , 

DATA 44, 

Xmin4 

-1,2,"" , 

DATA 45, 

Xmin5 

-1,2,"" , 

DATA 4 6, 

Xmin6 

-0.5,1,"" , 

DATA 47, 

Xmin7 

0,1,"" r 

DATA 48, 

XminB 

-1,1,"" * 

DATA 49, 

Xmin9 

0,0,"" , 

DATA 51, 

Xminl 

935,0, pxl. 

DATA 52, 

Xmin2 

935,0, pxl , 

DATA 53, 

Xmin3 

935, 0 , pxl, 

DATA 54, 

Xmin4 

935, 0, pxl , 

DATA 55, 

Xmin5 

935, 0, pxl. 

DATA 56, 

Xmin6 

75,0, pxl. 

DATA 57, 

Xmin7 

425,0, pxl. 

DATA 58, 

Xmin8 

75,0, pxl, 

DATA 59, 

Xmin9 

425,0, pxl. 

DATA 61, 

Xdivl 

10,0,"" , 

DATA 62, 

Xdiv2 

10,0,"" , 

DATA 63, 

Xdlv3 

10,0,"" , 

DATA 64, 

Xdiv4 

4,0,"" , 

DATA 65, 

XdivS 

4 , 0 , " M , 

! Y 

******* 

, * *x=l ********* 

i 

Delta 

, 0,4,° , 

i 

HH 

£ 

2 

o 

o 


0 , 4 , " M , 
. 5, 4 , °F , 
1 , 4 , m/s, 
1, 4, m/s, 
******** 
0, 4, in , 
0, 4 , in , 
0, 4 , in , 
0, 4 , in , 


VFoc lLen , 30 . 00 , 3 , in 
VBeamSep, 0 .000, 3 , 0 
VWa veLen , 48 8 . 0 , 3 , nm 
VFrngSpc , 00.00, 3, um 
Vbrag ,40.00, 4, MHz 
Vmix , 0.00, 4, MHz 
VmeaSgn , +1,0, M " 


VbrgSgn , 
VmixSgn , 
V coin , 
ThetaAV , 
ThetaBV , 
ThetaCV , 
VFreqMin, 
VFreqMax , 

Xmaxl , 

Xmax2 , 

Xmax3 , 

Xma x 4 , 

Xmax5 , 

Xmax6 , 

Xmax7 

Xmax8 

Xmax9 

Xmaxl 

Xmax2 

Xmax3 

Xmax4 

Xmax5 

Xmax6 

Xmax7 

Xmax8 

Xmax9 

Ydivl 

Ydiv2 

Ydiv3 

Ydiv4 

Ydi v5 

Beta 

U jet /Ue 


- 1 , 0 ,"" 
+ 1 , 0 , "" 
1 , 0 , "" 
90,4,° 
0,4,° 

90.4, ° 

25, 4, MHz 

55. 4, MHz 
x=2 ******** 

100,0," H 
100,0, MM 
100 , 0 , "" 
1 , 2 , "" 
1 , 2 ,"" 
1.5,1,"" 
.5,1, MH 
1 , 1 ,"" 
2000 , 0 , "“ 
1235, 0,px 
1235, 0,px 
1235, 0,px 
1235, 0,px 
1235, 0,px 

325. 0, px 

675. 0 , px 

325. 0, px 

675. 0 , px 

4.0, *“ 

4.0, "" 
4,0,"" 

4.0, "" 

4.0, " 

* *x=2 ****** 

, 0,4,° 

, 1,4, m/s 


STemp 

TTemp 

Tt 

Tt (raw) 
******** 

Xltcs 

Yltcs 

Zltcs 

Altcs 

******** 

WBeamSpc 

WFoclLen 

WBeamSep 

WWaveLen, 

WFrngSpc 

Wbrag 

WMix 

WmeaSgn , 
WbrgSgn , 
WmixSgn , 
W coin , 
ThetaAW , 
ThetaBW , 
ThetaCW , 
WFreqMin, 
WFreqMax, 
********* 
Yminl 
Ymin2 
Ymin3 , 
Ymin4 , 
Ymin5 i 
Ymin6 
Ymin7 
YminS 
Ymin9 
Yminl 
Ymin2 
Ymin3 
Ymin4 
YminS 
Ymin6 
Ymin7 
Ymin8 
Ymin9 
Xdiv6 
Xdiv7 
Xdiv8 
Xdiv9 


Cfreq 


x _3* ******** 

0,0, °R , 
0,0, °R , 
0 , 3 , mv , 
0, 3 , v , 
X=3* ******** 
0, 4 , in , 
0, 4 , in , 
0, 4, in , 
0, 4, in , 
*X=3* *** * **** 
.3125, 3, in ■ 

30.00. 3. 1n , 

0.000,3,° , 

476 . 5 , 3 , nm 
00.00, 3, um 

40.00. 4, MHz 
0.00, 4, MHz 

+ 1 , 0 ,"" 
- 1 , 0 , " " 

+ 1 , 0 , 


, 0 , 
,4, 
, 4 , 
, 4, 


Alphal 

Alpha2 

Alpha3 

Theta 

******* 

X2tcs 

Y2tcs 

22tcs 

A2tcs 


0, 

90, 

90, 

0, 

10. 4, MHz, 

70. 4, MHz, 

x _3* ******** 
0,0,' 

0,0, 

0,0, 

0,0, 

, 0 , 0 , 

0,2, 

0,2, 

0,2, 

0,2, 

725. 0, pxl, 

585. 0, pxl, 

445.0, pxi, 

305. 0, pxl, 

165.0, pxl, 

525.0, pxl, 

525.0, pxl, 

165.0, pxl, 

165,0, pxl, 

4.0, "" , 

5.0, "" , 

4.0, "" , 

4,0,"" , 

0 , 0 ,"" , 

* *X=3* ******** 
, 0,0, Hz , 

, 0,0,"" , 


* x =4* ***** 

, 0,4,° 
, 0,4,° 
, 0,4,° 
, 0,4,° 


*X=4 * * 


0,4, in 
0, 4, in 
0,4, in 
0,4, in 


* X = 4 * 


Indexl 

,1.000,3, "" 

I ndex2 

, 1.000, 3, "" 

Index3 

,1.000, 3, "" 

Nreads 

, 1000,0, M " 

Nsam 

, 1000,0,"“ 

At ime 

, 5, 6, s 

Ct ime 

, IE-2 , 6, s 

ATexp 

, 12,0,"" 

CTexp 

, 7,0,"" 

Tt Gain 

, 100,0,"" 

Paxis 

, 2,0,"" 

MH 

, 0,0,"" 

II M 

, 0,0/" 

Nose 

, 139,1, cm 

M II 

, 0,0,"" 

Clip 

, 1,0,"" 

******* 

* * x = 4 * * * * * * * * 

Ymaxl 

, 100,0,"" 

Ymax2 

, 100,0,"" 

Ymax3 

, 100,0,"" 

Ymax4 

, 100,0,"" 

Ymax5 

, 100,0,"" 

Ymax6 

, 4,2,"" 

Ymax7 

, 4,2,"" 

Ymax8 

, 4,2,"" 

Ymax9 

4,2,"" 

Ymaxl 

, 825,0, pxl 

Ymax2 

f 685,0, pxl 

Ymax3 

, 545,0, pxl 

Ymax4 

, 405,0, pxl 

YmaxS 

, 265,0, pxl 

Ymax6 

, 825,0, pxl 

Ymax7 

, 825,0, pxl 

Ymax8 

, 465,0, pxl 

Ymax9 

, 465,0, pxl 

Ydiv6 

, 8,0,"" 

Ydiv7 

, 8,0,"" 

Ydi v8 

8,0,”" 

Ydiv9 

1 8,0,"" 

» H 

, 0,0,"" 

***** 

****X=4******** 

Of req 

, 0,4, Hz 

H II 

, 0,0,"" 
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9480 

9490 

9500 Ar ray_print : 

9510 

9520 

9530 

9540 

9550 

9560 

9570 

9580 

9590 

9600 

9610 

9620 

9630 

9640 

9650 

9660 

9670 

9680 

9690 

9700 

9710 

9720 

9730 

9740 

9750 

9760 

9770 

9780 

9790 

9800 

981 0 Change : 

9820 Change: 

9830 

9840 

9850 

9860 

9870 

9880 

9890 

9900 

9910 

9920 

9930 

9940 

9950 

9960 

9970 

9980 

9990 

10000 

10010 

10020 

10030 

10040 

10050 

10060 

10070 

10080 

10090 

10100 Walt: 
10110 
10120 
10130 
10140 
10150 

10160 Kbd: 
10170 
10180 

10190 Display: 
10200 
10210 
10220 
10230 
10240 
10250 
10260 

10270 Select: 






, Y ******** *x=l ******* * A 

SUB^Array_print (Array (*), NameS (*) . ImageS (*) .UnltsS (*) 1 
PRINT USING " #, 5/" 

FOR Y = 1 TO SIZE (Array# 1) 

MAT SEARCH Array (Y, *) , ILOC (<>0) ;L1 

MAT SEARCH Name? {Y, # iLOC (<> M M ) 

IF Ll+L2=0 AND L3=0 THEN 9790 
L3=L1+L2 

PRINT USING " # , 28X*' 

FOR X=1 TO SIZE (Array, 2) 

SELECT Name? ( Y, X) 

CASE M " 

PRINT USING " # , 28X" 

CASE "Date" 

L$=DAT£$ (Array (Y, X) ) 

*“• x * » • — - <y - x » 

CASE “Time** 

».X. €-—<*.» . . — . «r.*l 

CASE ELSE 

IF ImageS(Y.X) »■" THEN ImageS(Y.X)- 9D 

ON ERROR GOTO 9740 x 3A 4x"; TRIMS (NameS (Y, X) Array <Y , X) 

PRINT USING "# , 10 A, A, & ImageS ( Y, X) 6 ,X,3A,1A ,i»i 
GOTO 9760 

OFF ERROR «/v y \ t — >• Array(Y»X}#Units$(Y/X) 

PRINT USING M f,10A,A,K,X,3A, 4X M ;TRIM$ (Name? (Y, X) ,Array( 

END SELECT 
NEXT X 
PRINT 
NEXT Y 

SUBEND t ^ ( m ( ( m m m ^ m , , , , , , , , , , , , , , i , , , i M ; , t t i . ! ! ! ! ! ! ! ! M ! ! ! ! ! ! M 1 ! I ! ! ! ! 1! i ! ! ! I ! ! ! ! ! ! ! ! ! 

SUb' C hange (TypeS j Array ( M \ NameS (*) # Image? (*) , UnitsS (*) ) 

PRINTER IS CRT 

FOR Y=1 TO SIZE (Array, 1) 

FOR Y1=Y TO SIZE (Array , 1 ) 

FOR X=1 TO SIZE (Array, 2) 

IF NameS (Y1 , X> <>"" THEN 9920 
NEXT X 
NEXT Y1 
CLEAR SCREEN 
SUBEXIT 

FOR Y2=Y1 TO SIZE (Array , 1 > 

FOR X=1 TO SIZE (Array, 2) 

IF NameS (Y2, X) <> M " THEN 9970 

NEXT X 
GOTO 9980 
NEXT Y2 

FOR Y2=Y2 TO SIZE (Array, 1) 

FOR X=1 TO SIZE (Array, 2) 

IF NameS ( Y2 , X) <>" " THEN 10030 

NEXT X 
NEXT Y2 

CALLED Ispley (TypeS, Yl, Y2, Array (*) , NameS (*) , ImageS (*) .UnitsS (*) ) 

Done=0 

X=1 

Y=Y1 

ON KBD ALL, 15 GOSUB Kbd 
IF NOT Done THEN Wait 
OFF KBD 
CLEAR SCREEN 
Y=Y2 
NEXT Y 

CALL^Update (TypeS, X,Y, Yl, Y2, Done, Array (*) . NameS (*> . ImageS (M .UnltsS (*) ) 

RETURN 

SUB^Di splay (TypeS, Y1.Y2, Array (*> .NameS (*> . ImageS (*> .UnitsS (*) » 

FOR Y=Y1 TO Y2 

FOR X-l TO SIZE(Array.2) Array (*) NameS I* ) , ImageS (*) , UnltsS (*) ) 

CALL Select (TypeS, X, Y, Yl, YZ, U, Array \ t , 

NEXT X 

CALL Select (TypeS, 1 ,Y 1 , Yl, Y2, 1 .Array (*) .NameS ( *) , ImageS (M , Unit sS (*) ) 

SUB^Select (TypeS, X, Y,Y1,Y2, C, Array (*) , NameS (*) , ImageS (*) , UnltsS (*) ) 


* X=4 * 


, Unit s$ (Y, X) 


I \ t t T 1 M 1 t 
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10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
10400 
10410 
10420 
10430 
10440 
10450 
10460 
10470 
10480 
104 90 
10500 
10510 

10520 Update: 
10530 
10540 
10550 
10560 
10570 
10580 
10590 
10600 
10610 
10620 
10630 
10640 
10650 
10660 
10670 
10680 
10690 
10700 
10710 
10720 
10730 
10740 
10750 
10760 
10770 
10780 
10790 
10800 
10810 
10820 
10830 
10840 
10850 
10860 
10870 
10880 
' 10890 
10900 
10910 
10920 
10930 
10940 
10950 
10960 
10970 
10980 
10990 
11000 
11010 
11020 
11030 

11040 Table: 
11050 Table: 
11060 
11070 


PRINT CHR$ (128+0 ; TABXY (26*X-24 , 15+Y-Y1+1) ; 

PRINT RPT$ (" " , 23) ;TABXY (26*X-24, 1 5+Y-Y1+1) 7 
IF NameS (Y,X> ="" AND Array <Y,X)=0 THEN 10500 
ImgS=ImageS (Y f X) 

Unt $=UnitsS (Y,X} 

IF Images (Y,X) *"■ THEN ImgS^K" 

IF UnitsS <Y,X) = "" THEN UntS=" 

SELECT TypeS 
CASE "VALUES" 

SELECT NameS (Y,X) 

CASE "Date" 

CASE "Time" 

CASE ELSE 

PRINT USING **# , 10A, A, M i Img$4", X, 3A"; NameS (Y, X> , " : " , Array (Y r X) ,Unt$ 

END SELECT 
CASE "NAMES" 

PRINT USING "#, 10A, A, 8A";Name$ (Y,X) , NameS <Y, X) 

CASE "UNITS" 

PRINT USING "#,10A, A, 8A";NameS (Y,X) UnitsS (Y,X) 

CASE "IMAGES" 

PRINT USING " # , 10A, A, 8A"; NameS ( Y, X) , " : " , ImageS ( Y, X) 

END SELECT 
PRINT CHRS (128) ? 

SUBEND 

SUB Update (TypeS , X, Y, Yl, Y2 , Done, Array ( *) , NameS (*) , ImageS (* > , UnitsS ( M ) 

DISABLE 

KS=KBD$ 

IF KS="" THEN 11010 
SELECT NUM(K$ (1,1) ) 

CASE 27 ! ESC 

Done=l 
CASE 255 

CALL Select (TypeS, X,Y,Yl,Y2,0,Array(*) , NameS (* ) , ImageS (*) , UnitsS ( *} ) 

SELECT NUM ( K$ [2,2] ) 

! Break, Stop 


! Menu 


CASE 73,80 
PAUSE 
CASE 124 
Done=l 

CASE 38 [ Seiect 

CALL Select (TypeS, X, Y, Y1 f Y2, 1 , Array ( * ) , NameS (* ) , ImageS (*) ,Units$ (* ) ) 

SELECT TypeS 
CASE "VALUES" 

IF NameS ( Y, X) ="" THEN CALL Enter_st ring ( "Name for " 4 Name$ <Y, X) , NameS (Y, X) , "K") 

IF ImageS (Y,X) ="" THEN CALL Enter_string ("Image for "fcNameS <Y, X) , ImageS (Y, X) , "K" ) 
CALL Enter value (NameS <Y,X) , Array (Y,X) , ImageS (Y,X) ) 

CASE "NAMES" 

CALL Enter string("Name for " tNameS (Y, X) , NameS (Y, X) , "K" ) 

CASE "UNITS" 

CALL Enter_string ("Units for "iNameS (Y,X) , UnitsS (Y, X) , M K") 

CASE "IMAGES" 

CALL Enter_string ( "Image for "4Name$ (Y # X) , ImageS (Y, X) , "K") 

END SELECT 

CALL Select (TypeS, X, Y, Yl, Y2, 0, Array ( *) , NameS (*} , ImageS ( *) , UnitsS (*) ) 

IF X=SIZE (Array, 2) THEN Y=Y+1 
X=X+1 


CASE 60 

! Left 

X=X-1 
CASE 62 

S Right 

X = X+1 
CASE 94 

! Up 

Y = Y-1 
CASE 86 

! Down 

Y-Y+l 
CASE 92 

! First 

X=1 


Y=1 


END SELECT 



X= (X-l ) MOD SIZE(Array,2)+l 
Y= ( Y-Yl + 1-1) MOD ( Y2-Y1 + 1 ) +Y1 
IF X<1 THEN X=SIZE (Array, 2 ) 

IF Y<Y1 THEN Y=Y2 

CALL Select (TypeS, X, Y, Yl , Y2, 1, Array <* ) , NameS <*) , ImageS (*} , UnitsS (* ) ) 
END SELECT 
ENABLE 
SUBEXIT 
SUBEND 

t t I T I ! M ' I I T t t t I M t t I I !l I t t t t I I I t I I I T I I M ! ! ! ! ! 


1 I t t t t II I 


I , I , ( I , M T ! I I t T I I f f 1 1 I ! I t t !!■!!!!!»!!!!!!!! ! 


SUB Table (Table ( * ) > 

OPTION BASE 1 

REAL Mantisa (0:1023) ,Time (0 : 1023) , Freq (0:1023) 
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11080 

11090 

11100 

11110 

11120 

11130 

11140 

11150 

11160 

11170 

11180 

11190 

11200 

11210 

11220 

11230 

11240 

11250 

11260 

11270 

11280 

11290 

11300 Ctm: 

11310 Ctm_ldv: 

11320 

11330 

11340 

11350 

11360 

11370 

11380 

11390 

11400 

11410 

11420 

11430 

11440 

11450 

11460 

11470 

11480 

11490 

11500 

11510 Ctm_mod: 
11520 
11530 
11540 
11550 
11560 
11570 
11580 
11590 
11600 
11610 
11620 
11630 
11640 
11650 
11660 
11670 
11680 
11690 
11700 
11710 
11720 
11730 
11740 
11750 
11760 
11770 
11780 
11790 
11800 
11810 
11820 
11830 
11840 
11850 
11860 
11870 


IF Table (32766) THEN SUBEXIT 
FOR Bin=0 TO 1023 

Mantisa (Bin) =Bln 

NEXT Bin 
Mant isa ( 0) =1 
Mi n=0 

FOR Fr inges=0 TO 1 

FOR Exponent=0 TO 15 
Max=Mi n+1023 
IF Max=32767 THEN 
Max=32766 

REDIM Mant isa ( 0 : 1022) , Time (0 : 1022} , Freq (0: 1022) 
END IF 

DISP Fringes, Exponent 

MAT Time= Mant isa*(2 A < Exponent-1 ) /500000000) 

MAT Freq= ( 2 A ( 4-Fr inges) ) /Time 
MAT Freq= Freq/ (1000000) 

MAT Table (MinrMax) = Freq 
Min=Min+1024 
NEXT Exponent 
NEXT Fringes 


M ?' M? ....!! t ! I !!! 1 !!!!!!!!!!!!!!!!!!!! j MM!! 

SUB Ctm_ldv (Index ( *> , Thetal <*> ,Tun21dv ( *) , Ldv2tun(*> ) 

OPTION BASE 1 
REAL Theta2 (3, 3) 

! Correct Theta for angles in water 
MAT Theta2= Thetal 

<Theta2 (2, 1 > =ASN (Index (1) /Index (3) *SIN (Thet a2 (2 , 1) ) ) 
i^t.2 2 2. .ASNUnd.x(l) /Index (3) *SIN(Theta2 .2,2. > » ♦ 0 
t T un2Lvd converts tunnel coordinates to laser coordinates. 

Tun21dv(lf 1) =C0S (Thet a 2 (1,1) ) 

Tun21dv (1, 2) =COS (Thet a 2 (1,2) ) 

Tun21dv (1, 3) =C0S(Theta2 (1,3)) 

Tun21dv (2, 1) “COS (Theta2 (2, 1) ) 

Tun2 ldv (2, 2) “COS (Theta2 (2,2)) 

Tun21dv (2,3) =C0S(Theta2 (2, 3) ) 

Tun21dv (3, 1) “COS (Theta2 (3, 1) ) 

Tun21dv (3, 2) *COS (Theta2 < 3, 2) > 

Tun21dv (3, 3) =C0S <Theta2 ( 3 , 3}) 

! Ldv2tun converts laser coordinates to tunnel coordinates. 
MAT Ldv2tun= INV(Tun21dv) 

SUBEND m 

SUB Ctro_mod (Alphal , Alpha2 , Alpha! , Mod2t un ( * ) . Tun2mod )) 

^2 0 ?i^3>!T2O.3».T3( 3 ,3. ( Abc<3).Abcl(3, ^ (3, ; T«™P(3. 3. 
i Define 1st coordinate transformation matrix for Mod2tu . 

T1 (1,1) =COS (Alphal) 

T1 (1, 2) =SIN (Alphal) 

T1 (1,3) =0 

T1 (2, 1) *-SIN (Alphal) 

T1 (2, 2) =COS (Alphal) 

T1 (2 , 3) *0 
T1 (3,1) =0 
T1 (3, 2 > =0 

^Def ine^2nd coordinate transformation matrix for Mod2tun. 

T2 (1, 1 ) =*1 
T2 (1,2) =0 
T2 (1,3) “0 
T2 (2, 1) =0 

T2 (2,2) =COS (-Alpha 2) 

T2 <2, 3) =SIN(-Alpha2) 

T2 (3,1) =0 

T2 (3,2) “-SIN (-Alpha2> 

Abel < 1 ) =1 
Abel (2) =0 
Abel ( 3 ) =0 
MAT Abc2= Tl*Abcl 

MAT Abc= T2*Abc2 , . _. 

T3 (1, 1) “Abe (1) *Abc (1) * (1-COS (-Alpha3) ) +COS (-Alpha3) 

T3 (1,2) =Abc<2) *Abc (1) * (1-COS <-Alpha3> ) +Abc(3) *SIN '^ P ^. 
Si 3) =Abc(3) *Abc (1) * (1-COS (-Alpha!) ) -Abe (2) -SIN -A ph.3 
T3 (2, 1) =Abc (1) * Abe (2) * (1-COS (-Alpha!) ) -Abe (3) *SIN (-Alpha!) 
T3 (2,2) -Abe (2) *Abc (2) * (1-COS (-Alpha 3) ) +COS (-Alpha 3) 

T3 (2 3) =Abc<3) *Abc (2) * (1-COS (-Alpha3) ) +Abc ( 1 ) *SIN (-Alpha3 
T3(31)=Abc(l) *Abc(3) * (1-COS (-Alpha3) ) +Abc (2) *SIN (-Alpha3) 
T3 (3^ 2) =Abc (2) *Abc (3) * ( 1 -COS (-A lp ha3) ) -Abe (1, *SIN (-Alpha3> 


ii i i m i m i !>!!!!!! ! 
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11880 

11890 

11900 

11910 

11920 

11930 

11940 

11950 Ctm_tcsl : 
11960 
11970 
11980 
11990 
12000 
12010 
12020 
12030 
12040 
12050 
12060 
12070 
12080 
12090 
12100 
12110 
12120 
12130 
12140 
12150 
12160 
12170 
12180 
12190 
12200 
12210 
12220 
12230 
12240 
12250 
12260 
12270 
12280 
12290 
12300 
12310 
12320 
12330 
12340 

12350 Findstart : 

12360 

12370 

12380 

12390 

12400 

12410 

12420 

12430 

12440 

12450 

12460 

12470 

12480 

124 90 

12500 

12510 

12520 

12530 

12540 

12550 

12560 Ctm_tcs2: 
12570 
12580 
12590 
12600 
12610 
12620 
12630 
12640 
12650 
12660 


T3<3,3> =Abc (3) *Abc (3) * (1-COS (-Alpha3> ) + COS <-Alpha3> 

! Mod2tun converts model coordinates to tunnel coordinates. 
MAT Temp= T2*T1 

MAT Mod2t un= T3*Temp atp , 

I Tun2mod converts tunnel coordinates to model coordinates. 

MAT Tun2mod= INV(Mod2tun) 


SUBEND 

SUB Ctm_tcsl (Tcs2tun(*) ,Tun2tcs(*) ) 

OPTION BASE 1 

REAL Nair, Nglass, Nwater 

REAL Flonaxis, Flof faxis, Bsonaxis, Bsoffaxis 
REAL Theta ( 4) , Onaxis, Of fax is 

REAL Xon, Yon, Xof f , Yof f , XI, Yl, Y2 

REAL Ba , Bb, Xc, Yc 

REAL X (4) ,Yposition, Thickness 

INTEGER Of f a , Of fb, Ona, Onb , Beam , I # J 
Of f a = l 
Of fb=2 
0na = 3 


Onb=4 

F 1 onaxi s=l 9.25 
Flof faxis=19 .25 
Bsonaxis=60/25 . 4 

Bsoffaxis=60/25.4 
Thickness=l .25 
Onaxis=0 . 

Of faxi s=45 . 0 
Nair=l . 00 
Ng lass=l . 4 3 
Nwater*! . 33 
Yposit ion=0 
GOSUB Findstart 


Yl=Yon 

Xl=Xof f 

Y2=Yof f 

Yposit ion=l 

GOSUB Findstart 

Y2=Yon-Yl+Y2 

MAT Tun2tcs= IDN 

Tun2tcs (2, 2) — (Yon-Yl) 

Tun2tcs(4,2) =-SQRT ( (Xof f-Xl ) A 2+ (Yof f-Y2) 2) 

Tun2tcs (4, 4) =0 

MAT Tcs2tun= INV(Tun2tcs) 

Tcs2tun (4,2) =0 
MAT Tun2tcs= IDN 
MAT Tcs2tun= IDN 


SUBEXIT , _ ... 

Theta (Of fa) =Of faxis+ATN (Bsoffaxis/ (2*F lof faxis) ) 

Theta (Of fb) =Of faxis-ATN (Bsoffaxis/ (2*Floffaxis) ) 

Theta (Ona) =Onaxis+ATN ( Bsonaxis/ (2* Flonaxis) ) 

Theta (Onb) =Onaxis-ATN { Bsonaxis/ (2*Flonaxis) ) 

F0R Beam f *-Ypos i t ion * TAN (ASN (Nair/Nwater *SIN (Theta (Beam) ) ) ) ■ 

Thickness* TAN (ASN (Nair/Nglass*SIN (Theta (Beam) ) ) ) 

NEXT Beam 

Ba=-Thickness-X (Of fa) /TAN (Theta (Of fa) ) 

Bb=-Thickness-X (Of fb) /TAN (Theta (Of fb) ) 

fHh-Hal / (1/TAN (Theta (Of fa) ) -1/TAN (Theta (Offb) ) ) 


Yc=Xc/TAN (Theta (Offb) ) +Bb 
Xof f =Xc-Flof faxi s* SIN I Of faxis) 

Yoff=Yc-Floffaxis*COS (Of faxis) 

Ba=-Thickness-X (Ona) /TAN (Theta (Ona) ) 

Bb=-Thickness-X(Onb) /TAN (Theta (Onb)) 

Xc= (Bb-Ba) /( 1 /TAN (Theta (Ona)) -1/TAN (Theta (Onb) ) ) 
Yc=Xc/TAN (Theta (Onb) ) + Bb 
Xon=Xc-Flonaxi s * SIN (Onaxis ) 

Yon=Yc-Flonaxi s*COS (Onaxi s ) 


RETURN 

SUBEND 

SUB Ctm_tcs2 (Tcs2tun ( * ) , Tun2tcs (*) ) 
OPTION BASE 1 
REAL Nair, Nglass, N water 
REAL Floff axis, Bsoffaxis 

REAL Theta (2) , Offaxis 

REAL Xof f , Yof f , XI , Y1 

REAL Ba, Bb, Xc, Yc 

REAL X (2) , Yposition, Thickness 

INTEGER Of fa, Of fb, Beam, I, J 

Of fa=l 

Of fb=2 
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12670 

12680 

12690 

12700 

12710 

12720 

12730 

12740 

12750 

12760 

12770 

12780 

12790 

12800 

12810 

12820 

12830 

12840 

12850 

12860 

12870 

12880 

12890 

12900 

12910 

12920 

12930 Findstart: 

12940 

12950 

12960 

12970 

12980 

12990 

13000 

13010 

13020 

13030 

13040 

13050 

13060 Tcs8 : 

13070 Tcs8init: 

13080 

13090 

13100 

13110 

13120 

13130 

13140 

13150 

13160 

13170 

13180 

13190 

13200 

13210 

13220 

13230 

13240 Tcs8set : 

13250 

13260 

13270 

13280 

13290 

13300 

13310 

13320 

13330 

13340 

13350 

13360 

13370 

13380 

13390 

13400 

13410 

13420 

13430 

13440 

13450 


Flof faxis=19 . 5 
Bsoffaxi s=60/25. 4 

Thickness=l .25 
Of faxi a=-l 3 . 2 
Nair=l .00 
Nglass=l . 4 3 
Nwater =1 .33 
Ypos i t ion=0 
GOSUB Findstart 
XI =Xof f 
Yl=Yoff 
Yposit Ion=l 
GOSUB Findstart 
X2=Xoff 
Y2=Yof f 
Kx= (X2-X1) 

Ky= (Y2-Y1) 
mat Tun2tcs= IDN 
Tun2tcs (1,2) =Kx 
Tun2tcs (2,2) =-Ky 
Tun2tcs ( 4 , 4) =0 
MAT Tcs2tun= INV (Tun2t cs) 

Tcs2tun (4, 2) =0 
MAT Tun2tcs= IDN 
MAT Tcs2tun= IDN 
SUBEXIT 

Theta (Of fa) * 0 f faxis+ATN (Bsoffaxls/ (2*Flof f axis) ) 

Theta (Of fb) = 0 f faxi s-ATN (Bsoffaxls/ (2*F lof f axis) ) 

F0R X^Beamf “-Yposit ion*TAN (ASN (Nai r/Nwater *SIN (Theta (Beam) ))>- 

Thickne9S*TAN(ASN(Nair./Nglass*SIN (Theta (Beam) ) ) ) 

NEXT Beam 

Ba=-Thickness-X (Of fa) /TAN (Theta (Of fa) ) 

Bb=-Thickness-X (Of fb) /TAN (Theta (Of fb>) 

X C = (Bb-Ba) / (l/TAN(Theta (Of fa) ) -l/TAN(Theta (Offb) 

Yc=Xc/TAN (Theta (Of fb) ) +Bb 
Xof f=Xc-Flof faxis* SIN (Of f axis) 

Yof f =Yc-Flof faxis*C0S (Of faxi s) 

RETURN 
JUBEND 

: J , ! ! t I! I !!!!!! i !!!!!! !! !! ! ! M M Ml M 

JUB Tcs8init (0Tcs8) 

REAL I (1:8) ,C(1:B> 

ASSIGN 0Tcs8 TO 9 ; BYTE, FORMAT OFF,£OL 

CONTROL 9, 0;1 

CONTROL 9, 3; 9600 

CONTROL 9, 4; 31 

CONTROL 9, 12? IVAL ( "EF" , 16) 

CONTROL 9, 13? 9600 
CONTROL 9, 14? 31 

OUTPUT 0Tcs8 USING "K, /*? "VI0" 

ENTER 0Tcs8 USING "8 (K) *? I (*) 

IF SUM (I) <>8 THEN OUTPUT 0Tcs8 USING K, / , SI0 
OUTPUT 0Tcs8 USING "K, /",* "VCO" 

ENTER 0Tcs8 USING "8 (K) "?C (*) 

IF SUM (C) 08 THEN OUTPUT 0Tcs8 USING "K, /" ? W SC0:1, 

'OUTPUT 0Tcs8 USING "K, /*? H SCO : 0, M 
SUBEND 

SUB TcsBset (C$,0Tcs8) 

# Set (8,2) , NameS (8,1) 1101 , Images (8,1) [10] # UnitsS (8,1) 
OUTPUT 0Tcs8 USING "K, /"? "ViCS^O 
ENTER 0Tcs8 USING "8 <K) -;View ( *> 

READ NameS (*) 

MAT Image$= ("6D.3D**) 

DATA X1,X2,Y1,Y2,Z1,Z2,A1,A2 
FOR Channe 1=1 TO 8 

Set (Channel , 1) =Channel 
SELECT CS 
CASE "P" 

NameS (Channel, 1) -NameS (Channel, 1U" (pos) " 

UnitsS (Channel, 1) -"in" 

CASE -U- 

NameS (Channel, 1) =Name$ (Channel , 1) t (cpi) 

UnitsS (Channel, 1) ="cnt " 

NameS (Channel , 1 ) =NameS (Channel ,1)4* (cpr) 

UnitsS (Channel, 1) =*’ , cnt M 
CASE "V - 

Names (Channel, 1) -Names (Channel, 1 ) t” (veil “ 


m M ! M !!! M !!!! I 
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13460 

13470 

13480 

13490 

13500 

13510 

13520 

13530 

13540 

13550 

13560 

13570 

13580 

13590 

13600 

13610 

13620 

13630 

13640 

13650 

13660 

13670 

13680 

13690 

13700 

13710 

13720 Tcs8read: 

13730 

13740 

13750 

13760 

13770 

13780 

137 90 

13800 

13810 

13820 

13830 TcsSprlnt: 

13840 

13850 

13860 

13870 

13880 

13890 

13900 

13910 

13920 

13930 

13940 

13950 

13960 

13970 

13980 Tcs8move: 


13990 

14000 

14010 

14020 

14030 

14040 

14050 

14060 

14070 

14080 

14090 

14100 

14110 

14120 

14130 

14140 

14150 

14160 

14170 

14180 

14190 

14200 

14210 

14220 

14230 


Uni t s$ (Channel , 1) = M rev** 

CASE "A M 

NameS (Channel, l)=Name$ (Channel, lit" <acc>” 
UnitsS (Channel, 1) =“rev" 

CASE " + " 

NameS (Channel, 1) =Name$ (Channel , 1 > 4 " (+LS) - 

Uni ts$ (Channel , 1) = " 

CASE 

NameS (Channel, 1) =Name$ (Channel ,1) 4 (-L5) 

Unit sS (Channel , 1) M 
CASE "S" 

NameS (Channel , 1) -NameS (Channel , 1) 4 " (STALL) 
Unit s$ (Channel , 1) =*' 


CASE "H" „ 

NameS (Channel, 1> *Name$ (Channel , 1 ) 4 " (HS) 

UnitsS (Channel , 1) = " H 

END SELECT 
NEXT Channel 

CALL Change ("VALUES ", View { *) , NameS (*) , ImageS ( ),UnitsS( 

SELECT C$ 

CASE 

MAT Set (*, 2) * View <*, 1) 

OUTPUT 0Tcs8 USING 13690; "S M 4CS, Set (*) 

IMAGE K, 8 (D, " : M ,M6D. 4D, ", "> , / 

END SELECT 

.ks;;., <>, .» 

MAT Tun= Tcs2t unl*Tcsl 
REDIM Tun (1:3) , Mod (1:3) 

MAT Mod* Tun2mod*Tun 
REDIM Tun ( 1:4) , Mod (1: 4) 

Mod (4) *0 

Tun (4) =0 _ f#1% 

CALL Tcs8print (Mod < *) , Tun < M ,Tcsl (*) , Tcs2 ( )) 

SUBEND 

SUB Tcs8pr int (Mod (*) , Tun ( * ) , Tcsl < * ) ,Tcs2(M ) 

PRINT CHRS (128 ) ; 

PRINT TABXY (50,1) ; " * 

PAINT TABXY<50.2>;“ MOD TUN TCS1 TCS2 _ 

PRINT TABXY (50, 3) ; " 

PRINT TABXY (50,4) ; y .. > 

PRINT USING "# , K, 4 (M3D . 4D) , X" ; " X: - , Mod (1 ) , Tun ( 1 ) , Tcsl ( 1 ) , Tcs2 ( 1 

PRINT TABXY<50,5); 

PRINT USING "#,K,4<M3D.4D>,X“;“ Y: ■ .Mod (2) ,Tun (2) , Tcsl (2) , Tcs2 (2) 

PRINT TABXY ( 50 , 6) ; _ 

PRINT USING -#,K,4(M3D.4D) ,X";“ Z : - , Mod ( 3) , Tan < 3) , Tcsl (3) , Tcs2 3> 

PRINT TABXY (50, 7); 

PRINT USING “f,K,4(M3D.4D),X“,-“ A: ", Mod (4) ,Tun (4) , Tcsl (4) , Tcs2 (4) 
PRINT TABXY (50, 8) 

SUBEND 




ement ) 

OPTION BASE 1 
DIM LS11001 

REAL Move ( 8, 2) , I (8) , C ( 8) 
IF ModeS “"RELATIVE" THEN 
MAT Mod= (0) 

MAT Tun= (0) 

MAT Tcsl= (0) 

MAT Tcs2* (0) 

END IF 

SELECT CoorS 
CASE "MODEL" 


Mod (K) =Mov ement 
REDIM Tun (1:3) , Mod (1:3) 

MAT Tun= Mod2tun*Mod 
REDIM Tun(l:4) , Mod (1:4) 

IF POS (SideS, ”Tx"> THEN MAT Tcsl- Tun2tcsl*Tun 
IF POS (sides, "Rx”) THEN MAT Tcs2= Tun2tcs2*Tun 
CASE “TUNNEL* 


Tun (K) =Mov ement 
IF POS (SideS, "Tx") 
IF POS (SideS, "Rx") 
CASE "LASER" 

IF POS (SideS, "Tx") 
IF POS (SideS, "Rx") 
END SELECT 


THEN MAT Tcsl* Tun2tcsl*Tun 
THEN MAT Tcs2= Tun2tcs2*Tun 

THEN Tcsl (K) Movement 
THEN Tcs2 (K) “Movement 
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14240 

14250 

14260 

142*70 

14280 

14290 

14300 

14310 

14320 

14330 

14340 

14350 

14360 

14370 

14380 

14390 

14400 

14410 

14420 

14430 

14440 

14450 

14460 

14470 

14480 

14490 Tcs8view: 

14500 

14510 

14520 

14530 

14540 

14550 

14560 

14570 

14580 

14590 

14600 

14610 

14620 

14630 Graph: 
14640 Dump: 

14650 
14660 
14670 
14680 
14690 
14700 
14710 
14720 
14730 
14740 
14750 
14760 
14770 
14780 
14790 
14800 
14810 
14820 
14830 
14840 
' 14850 

14860 
14870 
14880 
14890 
14900 
14910 
14920 
14930 
14940 
14950 
14960 
14970 

14980 Crt_init : 

14990 

15000 

15010 

15020 

15030 


FOR Channe 1=1 TO 8 

Move (Channel, 1) “Channel 
NEXT Channel 


f Move (*) 


Move (1,2) =Tcsl (1) 

Move (2 , 2) =Tcs2 (1) 

Move ( 3 , 2 } =Tcsl (2) 

Move ( 4 , 2) =Tcs2 (2) 

Mo ve ( 5 , 2) =Tcsl (3) 

Move (6,2) =Tcs2 ( 3 ) 

Move (7,2) =Tcsl ( 4 ) 

Move (8 , 2) =Tcs2 (4) 

SELECT ModeS 
CASE “ABSOLUTE- 

OUTPUT 9Tcs8 USING 14380 ; M MA M , 3, 4, Move (3,2) 

IMAGE K, 1 (D,D, K, ",**), / 

ENTER 0Tcs8 USING -K**;L$ ! Teal (2) 

Tcsl (2) =VAL (L$ ) 

ENTER 0Tcs8 USING M K";L$ ! Tcs2(Z) 

Tcs2 (2 ) =VAL (LS) 

CASE “RELATIVE- 

OUTPUT 0Tcs8 USING 14450; “MR H 

ENTER KciS' Os“inI 2 -s'k; -:•!«( < 1) ,Tcs2 ,1, .Tcsl (2, ,T=s2 (2, .Tcsl (3, ,Tcs2 (3, ,Tc 
END SELECT 
SUBEND 

SUB Tcs8view (0Tcs8) 

OPTION BASE 1 
REAL View (8) 

C$*"-+HS“ 

CLEAR SCREEN 
PRINT TABXY (1,1) 

FOR 1=1 TO 4 

OUTPUT 0Tcs8 USING "K, “V"fcC$ [ I, I U"0" 

ENTER 0Tcs8 USING -8 <K) M ;View ( * ) 

PRINT USING -AA, 5 X, 8 ( 3 D)";"V-&C$[I,I],Vlew(*> 

NEXT I 
BEEP 

GOTO 14540 
SUBEND 

I ! I I ! I I t I t t 1 


Si (4) , Tcs2 


XI X2 Yl Y2 21 Z2 A1 A 2 M 


ii t t t t i t t t | 


I I i i t m i i t I j t i t t i ; 


i i i i m <!!!!!!!!!!! ! 


SUB Dump (G1 , G2 , Prt , Array ( 

OPTION BASE 1 

ALLOCATE INTEGER Ws(400,400) 


) , INTEGER Gs (*) ) 


GSTORE Gs ( * ) 

KEY LABELS OFF 
OUTPUT Prt USING "#,0" 
FOR G=G1 TO G2 

Xmin=Array (G+40, 1) 
Xmax=Ar ray (G+40, 2) 
Ymin=Array (G+4 0, 3) 
Ymax=Array (G+40, 4) 


Xpixl=Array (G+50, 1) -7 5 
Xp ix2=Array (G+50, 2 ) +25 
Ypixl “Array (G+50, 3) -50 

Ypix2=Array (G+50, 4) +25 . 

VIEWPORT Xp 1x1/ 10. 23, Xpix2/10.23, Ypixl /10 .23, Ypix2/10. 23 
WINDOW 0,1, 0,1 , , . 

CALL Bstore (Ws ( * ) , (Xpix2-Xplxl) +1, (Ypix2-Ypixl ) +1, 3, 0. 1) 

GCLEAR 
CLEAR SCREEN 


Xnew=100-Xpixl 

Ynew=400-Ypixl 


Xpixl =Xpixl+Xnew 
Xpix2=Xpix2+Xnew 
Ypixl=Ypixl+Ynew 
Ypix2=Yplx2+Ynew 


WINDOW 0,1, 0,1 

VIEWPORT Xpixl / 10 . 23 , Xpix 2/1 0.23, Ypixl /10. 23, Ypix2/10. 23 

CALL Bload(WsC), <Xpix2-Xpixl) +1, (Ypix2-Ypixl) +1,3, 0.1 

CALL Gdump_colored(CRT, Prt, "NORMAL". 180, "OFF", "DITHER ) 

GLOAD Gs (* ) 

NEXT G 

DEALLOCATE Ws(*) 


SUBEND 

SUB Crt_init 

PLOTTER IS CRT, -INTERNAL- 
AREA PEN 0 
PEN 1 

PRINTER IS CRT 
PRINTALL IS CRT 
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15040 

15050 

15060 Read_symbols: 

15070 

15080 

15090 

15100 

15110 

15120 

15130 

15140 

15150 

15160 

15170 

15180 Dot: 

15190 Square: 

15200 Octagon: 


15210 Diamond: 
15220 Utriangle: 
15230 Dtriangle: 
15240 

15250 Set up_graph: 

15260 

15270 

15280 

15290 

15300 

15310 

15320 

15330 

15340 

15350 

15360 

15370 

15380 

15390 

15400 

15410 

15420 

15430 

15440 

15450 

15460 

15470 

15480 

15490 

15500 

15510 

15520 

15530 

15540 

15550 

15560 

15570 

15580 

15590 

15600 Set_up: 

15610 

15620 

15630 

15640 

15650 

15660 

15670 

15680 

15690 

15700 

15710 

15720 

15730 

15740 

15750 

15760 

15770 

15780 

15790 

15800 


KEY LABELS OFF 
SUBEND 

SUB Read_symbols ( Symbols (*) ) 

OPTION BASE 1 

REAL Symbol <20, 3) , Dot (2, 3) 

READ Dot (*) 

FOR S=1 TO 5 


READ Noc 

REDIM Symbol (Noc, 3) 

READ Symbol (*) 

MAT Symbols (S, 1 :Noc, *} = Symbol 
MAT Symbols {S, Noc+1 :Noc+2, *) = Dot 
Symbols (S, 0,1) =Noc+2 


NEXT S 

DATA 4.5, 

DATA 5, 0.5, 

DATA 9, 0.5, 

1, 0.5, 9.5, 


7.5, -2, 

3.5, -2, 

5.5, -2, 

1, 0.5,! 


4.5. 7. 5,-1 

8.5, 3. 5,-1, 

8.5,11.5, 

-1, 

0.5,11. 5,-1, 

2.5, 3. 5,-1, 

6.5, 3.5, 

-1, 

8.5, 5. 5,-1, 

5.-1 

4.5, 2. 5,-1, 

9.5, 7.5, 

-1, 

4.5, 12.5, -1, 

8.5, 4. 5,-1, 

4.5,13.5, 

-1, 

0.5, 4. 5,-1 

8.5, 10. 5,-1, 

4.5, 1.5, 

-1, 

0.5,10.5,-! 


0.5, 3. 5,-1 
8.5, 9. 5,-1, 

-0.5, 7. 5,-1 


6.5,11.5,-!, 2.5,11.5,- 


DATA 5, -0.5, 7. 5, -2, 

DATA 4, 0.5, 4. 5, -2, 

DATA 4, 0.5, 10. 5, -2, 

SUB Setup_graph {Array (*) , Image$(M ,Paxis, ymb 
OPTION BASE 1 

MAT Wndw= Array (41 : 49, *> 

MAT Vwprt= Array <51 : 59, *) 

MAT Xdiv ( 1 : 5) = Array (61 :65, 1) 

MAT Xdiv ( 6 : 9) = Array (61 : 64 , 3) 

MAT Ydlv (1 : 5) = Array (61 : 65,2) 

MAT Yd iv ( 6 : 9) = Array ( 61 : 64 , 4) 

MAT Ximage$= Image$ (41 : 49, 1) 

MAT Yimage$= ImageS < 41 : 4 9, 3) 

FOR G = 1 TO 9 

READ G, XlabelS (G) 

FOR 1=1 TO SIZE (LegendS , 2 ) 

READ Legend? (G, I) 

NEXT I 
SELECT G 
CASE 1 TO 5 

Ylabel $ (G> ="" 

CASE 6 TO 9 

YlabelS (G) =CHR$ (NUM("X") +Paxis-1) 
END SELECT 

CALL Set_up (G, Symbols (*) ) 

NEXT G 


SUBEXIT 
DATA 1, 

DATA 2, 

DATA 3, 

DATA 4, 

DATA 5, 

DATA 6, 

DATA 7, 

DATA 8, 

DATA 9, 

SUBEND 

SUB Set_up (G, Symbols (*) ) 

OPTION BASE 1 

Wndw{*^?Vwprt (*) , Xdiv ( *) , Ydlv ( *) , XlabelS {M # YlabelS (*) , Title ® (*) , X Image? (* ) * YimageS (*) » Legend? 

DIM L$ [80) 

ON ERROR CALL Error 
PLOTTER IS CRT, •’INTERNAL" 


"Velocities / Uinf" 

"RMS / Uinf" 

"Shear Stress / Uinf A 2" 

"Tt:3R Uinf:m/s Uedge:m/s" 


, "U" 

, "Ul" 
, "U1V1" 
. "Tt" 


"V" 
"VI" 
"VI Wl" 
"Uinf" 


"W" 

"Wl" 

"W1U1" 

"Uedge" 


Black=-1 
Wh ite=l 

CSIZE 100*15/1023 
Xmin=Wndw (G, 1) 

Xmax=Wndw (G, 2) 

Ymin=Wndw (G, 3) 

Ymax=Wndw (G, 4) 

Xpixl=Vwprt (G, 1) 

Xpix2=Vwprt (G, 2) 

Ypixl=Vwprt (G, 3) 

Ypix2=Vwprt (G, 4) 

Xst ep= (Xmax-Xmin) /Xdlv (G) 

Ystep= (Ymax-Ymin) /Ydlv (G) 

Xp lxel = (Xmax-Xmin) / (Xpix2-Xpixl ) 
Ypixel = (Ymax-Ymin) / (Ypix2-Ypixl) 
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15810 

15820 

15830 

15840 

15850 

15860 

15870 

15880 

15890 

15900 

15910 

15920 

15930 Background: 

15940 

15950 

15960 

15970 

15980 

15990 

16000 Axes: 

16010 

16020 

16030 

16040 

16050 

16060 

16070 

16080 

16090 

16100 

16110 

16120 

16130 Grid: 

16140 

16150 

16160 

16170 

16180 

16190 Plot_area: 
16200 
16210 

16220 Xlabel: 
16230 
16240 
16250 
162 60 
16270 
16280 

162 90 
16300 

16310 Ylabel : 

16320 

16330 

16340 

16350 

16360 

16370 

16380 

163 90 
16400 
16410 
16420 
16430 

16440 Legend: 

164 50 
16460 

16470 

16480 

164 90 
16500 
16510 
16520 
16530 
16540 
16550 

165 60 
16570 
16580 
16590 


AREA PEN Black 
PEN White 
GOSUB Back_ground 
GOSUB Axes 
! GOSUB Grid 
GOSUB Plot_area 
CLIP OFF 
GOSUB Ylabel 
GOSUB Xlabel 

CALL Legend (G, Symbols <*) ) 


OFF ERROR 

VIEWPORT (Xpixl-75)/10.23, <Xpix2 + 25) /10.23, (Ypixl-33) /10. 

WINDOW -l.E+9,l.E+9,-l.E+9,l.E+9 

MOVE 0,0 

WINDOW 0,1, 0,1 

MOVE 0,0 

RECTANGLE 1,1, FILL 

VIEWPORT (Xpixl-1) /10.23, (Xpix2+1) /10.23, (Ypixl-6) /10.23, 
WINDOW Xmin, Xmax, 1 , 0 

°nl:l£ no.*, 

WINDOW Xmin, Xmax, 0, 1 

AXES Xstep, 2,Xmin, 0,1, 1,1 , . .. - 

VIEWPORT (Xplxl-6) /10.23, (Xplxl-1) /10.23, (Ypixl-1) /10.23. 
WINDOW 1 , 0, Ymin, Ymax 

VIEWPORT*^Xplx2+T) /XO-23^ (Xplx2+6) /10.23 # tYplxl-1) /10.23, 
WINDOW 0,1, Ymin, Ymax 
AXES 2 , Ystep, 0, Ymin, 1, 1 , 1 

VIEWPORT (Xplxl-1) /10.23, (Xplx2 + 1. /10.23, (Yplxl-1) /10.23. 
WINDOW Xmin, Xmax, Ymin, Ymax 
LINE TYPE 4 

GRID Xstep, Ystep, Xmin, Ymin 

LINE TYPE 1 

n r TURN _ 

VIEWPORT Xpixl/ 10 . 23, Xp 1x2/10. 23, Yplxl/10 . 23, Ypix2/10. 23 
WINDOW Xmin, Xmax, Ymin, Ymax 
RETURN 
LORG 5 

FOR X=Xmin TO Xmax+Xstep/100 STEP Xstep 
MOVE X, Ymin-12 *Ypixel 
OUTPUT L$ USING Ximage$(G),*X 
LABEL TRIMS (LS) 

NEXT X 

MOVE (Xmin+Xmax) / 2 , Ymin-25 * Ypixel 
LABEL XlabelS (G) 

RETURN 
LORG 8 


23, ( Ypix2+6) /10.23 


(Ypixl-1) /10 .23 
(Ypix2+6) /10.23 
( Ypix2+1 ) /10.23 
, (Ypix2 + 1) /10.23 

f { Ypix2+1) /10.23 


Len=0 

FOR Y=Ymin TO Ymax+Ystep/1 00 STEP Ystep 
MOVE Xmin-5*Xpixel , Y 
OUTPUT LS USING Yimage${G);Y 
LABEL TRIMS (LS) 

Len=MAX (Len, LEN (TRIMS (LS) ) ) 


NEXT Y 

MOVE Xmin- (5+7 *Len) *Xpixel , (Ymin+Ymax) /2 
LABEL YlabelS(G) 

LORG 5 
RETURN 


Legend (G, Symbols (*) ) 

OPTION BASE 1 

WndvM *^?Vwprt (*) , Xdiv ( *) , Ydiv ( *) , XlabelS ( * ) , Y labels (*) , TltleS «M , X images ( * ) , Y images ( * ) , Legends 
VIEWPORT°Vwprt^G, 1) /10. 23, Vwprt (G, 2) /10.23, Vwprt <G, 3) /10. 23, Vwprt (G, 41/10.23 

WINDOW Vwprt (G, 1 ) , Vwprt (G, 2) , Vwprt (G, 3) , Vwprt (G, 

Black=-1 


White=l 

CSIZE 100*15/1023 
AREA PEN -1 ! Black 

PEN 1 • White 

LORG 2 


Len=0 

FOR S=1 TO SIZE (Legends, 2) 

Len=MAX (LEN (LegendS (G, S) ) , Len) 


NEXT S 
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16600 

16610 

16620 

16630 

16640 

16650 

16660 

16670 

16680 

16690 

16700 

16710 Lvdas: 


FOR S=1 TO SIZE (LegendS , 2) 

IF LEN (LegendS (G, S) } =0 THEN 16690 
Noc=Symbols (S, 0, 1) 

REDIM Symbol (Noc, 3) 

MAT Symbol = Symbol s ( S, 1 : Noc, * } 

MOVE Vwprt (G, 2) -7*Len-23, Vwprt (G, 4 ) -15*S+5 
SYMBOL Symbol ( * ) , FILL, EDGE 
MOVE Vwprt (G, 2) -7*Len-10, Vwprt (G, 4)-15*S+4 
LABEL LegendS <G,S) 

NEXT S 


16720 Lvdas_init: 

16730 

16740 

16750 

16760 Lvdas sample a: 


SUB Lvdas_init (0Gpio) 

ASSIGN 9Gp lo TO 12 ; WORD, FORMAT OFF , EOL M " 
OUTPUT 0Gpio USING "#, AA"; N HP" 

SUBEND 

SUB Lvdas_sample_a (QLvdas, Channel, Symbol (*) ) 


16770 
16780 
16790 
16800 
16810 
16820 
16830 
16840 
16850 
168 60 
16870 
16880 
168 90 
16900 
16910 
16920 
16930 
16940 
16950 
16960 
16970 
16980 
16990 
17000 
17010 
17020 
17030 
17040 
17050 
17060 
17070 
17080 
17090 
17100 
17110 
17120 
17130 
17140 
17150 
17160 
17170 
17180 
17190 
17200 
17210 
17220 
17230 
17240 
17250 
172 60 
17270 


17280 Lvdas_average : 


OPTION BASE 1 

INTEGER Gx, Gy, Data (1000,4) ,G(128,102),Iv{1000) 

DIM LS [60] ,V<1000) ,Vv<1000) ,T(1000> ,Wndw{4) , Vwprt (4) 
Black=-1 


#,AA";"DT" 

># , AA, W" ; " SC" , Channel 


White=l 

READ Wndw ( * ) ,Xdiv,Ydiv, Vwprt ( * ) , XimageS , Y image $ , Xlabel $ , YlabelS V1 , ,, 

! Xmin, Xmax , Ymln, Ymax, Xdiv, Ydiv , Xpixl , Xpix2 , Ypixl , Ypix2 , XimageS , Y imageS , XlabelS , YlabelS 
DATA 0, .001,-5 , 5, 10, 10, 75, 1235, 165, 825, 6D.4D, 6D.3D,t (sec), V 

CALL Set_up (Wndw (* ) , Vwprt <*) ,Xdiv, Ydiv, XlabelS , YlabelS , XimageS, YimageS) 

GSTORE G < * ) 

PEN White 

OUTPUT @Lvdas USING 
OUTPUT 0Lvdas USING 
OUTPUT 9Lvdas USING "AA"; M RM" 

OUTPUT 6Lvdas USING H W, W“ ; IVAL < "08F2 
OUTPUT 8Lvdas USING "W, W"; IVAL ("08F2 
ENTER 3Lvdas USING "f , W N ; Data ( *) 

OUTPUT GLvdas USING ” * , AA" ; W £T" 

MAT T= Data (*, 2) 

MAT V= Data (*, 4) 

MAT V= V* { 5 . /2 . A 1 5 ) 

MAT Vv= V . V 
Ave=SUM (V) /1000 
Sdv=SQR ( SUM (Vv ) /1000-Ave*Ave) 

MAT SEARCH V(*),MIN;Min 
MAT SEARCH V ( * ) , MAX; Max 


, 16} , IVAL ("0000", 16) 
,16) , IVAL ( "1F3F M , 16) 


Dif=Max-Min 
GLOAD G ( * ) 

MOVE Xmin+10*Xpixel, Ymax-20*Ypixel 
LORG 2 

LABEL USING M 5 (M5D . 4D) M ; Ave, Sdv , Mi n, Max , Di f 

Ave-Ave / 5 * 2 A 1 5 

Sdv=Sdv/5*2 A l 5 

Min=Min/5*2 A 15 

Max=Max/5* 2 A 15 

Di f -Max-Mi n 


LABEL 

LABEL USING "2 (M8D . ID) , 3 (M10D) 


Time=0 


LORG 5 
CLIP ON 

FOR 1=1 TO 1000 

PLOT Time, V< I) 

SYMBOL Symbol (*), EDGE 
MOVE Time, V (I) 

PLOT Time, V (I) 
Time=Time+T ( I) *.0000001 


" ; Ave, Sdv, Min, Max, Di f 


NEXT I 
GOTO 16880 
SUBEXIT 

SUBEND ^ t 

SUB Lvdas_average (Table ( *) , INTEGER Data ( * ) , REAL Vave, Vsdv, Tave , Tsdv ) 


17290 

17300 

17310 

17320 

17330 

17340 

17350 

17360 

17370 

17380 

17390 


OPTION BASE 1 

REAL V(1000) ,Vv (1000) ,T (1000) , Tt (1000) 

N=SIZE (Data, 1) 

REDIM V(N) , Vv (N) ,T (N) , Tt (N) 

Channel=Data (1 , 3) +1 
SELECT Channel 
CASE 1,2,3 

FOR 1=1 TO N 

V (I) -Table (BINAND( 32767, BINCMP (Data (I, 4) ) ) ) 
NEXT I 
CASE 4,5 
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17400 

17410 

17420 

17430 

17440 

17450 

17460 

17470 

17480 

174 90 

17500 

17510 

17520 

17530 

17540 

17550 

17560 

17570 

17580 Lvdas__sample_< 

17590 

17600 

17610 

17620 

17630 

17640 

17650 

17660 

17670 

17680 

17690 

17700 Lvdas_take: 

17710 

17720 

17730 

17740 

17750 

17760 

17770 

17780 

17790 

17800 

17810 

17820 

17830 Data_reduce: 

17840 

17850 

17860 

17870 

17880 

17890 

17900 

17910 

17920 

17930 

17940 

17950 

17960 

17970 

17980 

17990 ! 

18000 

18010 

18020 

18030 

18040 

18050 

18060 

18070 

18080 

18090 

18100 

18110 

18120 

18130 

18140 

18150 Data_xfer: 
18160 
18170 
18180 
18190 


MAT V= Data ( * , 4) 
MAT V= V* (5/32768) 
CASE 6,7 

MAT V= (0) 

END SELECT 
MAT Vv= V . V 
MAT T= Data ( * , 2) 

MAT T= T/O0000000) 
MAT Tt = T . T 
Vave=SUM(V) /N 


Ta ve=SUM(T) /N 

Vsdv=SQR (ABS (SUM (Vv) /N-Vave* Va ve > ) 

Tsdv=SQR(ABS(SUM(Tt) /N-Tave*Tave) ) 

MAT SEARCH Data (*, 1) , #LOC(<>0) ;Badl 
MAT SEARCH Data (*, 2) , ILOC (<0) ; Bad2 

r PRINT USING 15300? Channel , Vave, Vsdv, Tave, Tsdv, Badl , Bad2 
IMAGE 4D, 2 (M8D . 4D) , 2 (M2D. 60) , 10X f 2 (5D) 

:SUB^Lvda 3 _sample_c (®Lvdas, Channel , Table (-) , REAL Vave,V 3 dv. Tave,T»dv> 

OPTION BASE 1 
INTEGER Data ( 1 000, 4) 

OUTPUT 9Lvdas USING "f , AA M ; "DT M 

OUTPUT 8Lvdas USING "#, AA, W" ; H SC" , Channel 

OUTPUT @Lvdas USING "AA" ? "RM** _ _ _ _ „ . 

OUTPUT SLvdas USING -W,W“; IVAL C 08 F 0 M 6 ) . IVAL 0000 . 16 
OUTPUT 0Lvdas USING ”W, W” ; IVAL ( "08FO" . 1 6) , IVAL ( 1F3F ,16) 

ENTER @Lvdas USING " I , W" ; Data { * ) 

OUTPUT SLvdas USING " # , AA" ? "ET M T 

CALL Lvdas_average (Table (* ) , Data < * ) , Vave, Vsdv, Tave, Tsdv) 

IuB E Lvdas_take(0Lvdas.Atime,Ctime, INTEGER At_exp, Ct_exp, Cmask. Nsam) 

OPTION BASE 1 T m .. !Ut , A(*),B(*),I(*)«C(*) 

COM /Data/ INTEGER Raw <*) , Valid (*) , REAL Table ( *) , U (*) , V ( >,W< ),A( ) .*% 

INTEGER At 1 , At2, Ctl, Ct 2 
DISP "Taking Data** 

CALL Convert2words ( At i me* 100 00 000, At 1 , At 2) 

CALL Convert2words(Ctlme*10000000,Ctl,Ct2) exp, Cmask, Nsam 

OUTPUT SLvdas USING -AA, 8 (W) " ; "CS" , At 1 , At 2 , Ct 1 , Ct2, At exp, ct_ p, 

ENTER 0Lvdas USING "#,W";Nsam 
IF Nsam=0 THEN SUBEXIT 
REDIM Raw ( 1 :Nsam, 1 : 10) 

ENTER 3Lvdas USING "# , W" ; Raw ( * ) 

SUBEND 

SUB Data_reduce (INTEGER At_exp, Ct_exp, Nsam) 

OPTION BASE 1 W (*) ,A(*) ,B(*) ,1 (*) ,C(*) 

DISP M Reducing Data" 

MAT 1= Raw (*, 1 ) 

MAT C- Raw ( * , 2) 

MAT Valid= Raw {*, 5) 

MAT U= Raw (*, 6) 

MAT V= Raw (*, 7) 

MAT W= Raw (*, 8) 

MAT A= Raw ( * , 9) 

MAT B= Raw (*,10) 

FOR K=1 TO Nsam 

U (K) =Table (U <K) ) 

V (K) =Table (V(K> ) 

W (K) =Table (W (K) > 


NEXT K 

MAT A= A* (5/32768) 

MAT B= B* (5/32768) 

MAT 1= I* (l/2*At_exp/10) 
MAT C= C* (l/2 A Ct_exp/10) 
MAT U= U . Valid 

MAT V- V . Valid 

MAT W= H . Valid 

MAT A= A . Valid 


Valid 

Valid 

Valid , , , . i . . , i t i m i m t i m n » i i i i t m m ! * ! ! i ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! M ! ! ! 


I t j r t 


r » t i i 


MAT B= B . 

MAT 1= I . 

MAT C= C . 

MAT W= (0) 

MAT B= (0) 

SUBEND 

SUB Data_xfer (0Mac, Run, File, INTEGER N> 

OPTION BASE 1 

COM /Data/ INTEGER Raw (* ) , Val id < * ) 
OUTPUT 8Mac USING 18190 ; Run, Fi le, N 
IMAGE K," ",K," ",K,/ 


REAL Table (*),U(*),V(*) , W (*) , A<*) , B ( *) , I (*) - C t*) 


i j j ! t i i i i 

till!!!!! 
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18200 
18210 
18220 
18230 
18240 
18250 

18260 Dat a_cl ip : 

18270 
18280 
182 90 
18300 
18310 
18320 
18330 
18340 
18350 
18360 
18370 
18380 
18390 
18400 
18410 
18420 
18430 
18440 
18450 
18460 
18470 
18480 
18490 
18500 
18510 
18520 
18530 
18540 
18550 
18560 
18570 

18580 Data_aconvert : 
18590 
18600 
18610 
18620 
18630 
18640 
18650 
18660 
18670 
18680 
18690 
18700 
18710 
18720 
18730 
18740 
18750 
18760 
18770 

18780 Data_f convert 
187 90 
18800 
18810 
18820 
18830 
18840 
18850 
18860 
18870 
18880 
18890 
18900 
18910 
18920 
18930 
18940 
18950 
18960 
18970 
18980 
18990 


r °" Sim S.c 

IMAGE K," M ,K, M ",2(K," 

NEXT K 

OUTPUT 9Mac USING 

SUB Data_clip( INTEGER Nsam, REAL Urnin, Umax, Vmin, Vmax) 

OPTION BASE 1 m rT/ *v A( # ) ,B(*) ,1 (*) ,C<*) 

COM /Data/ INTEGER Raw (M , Valid {*} , REAL Table ( *>, U <*> . V ( >,»( 

DISP "Clipping Histograms" 

FOR K=1 TO Nsam 

MAT SEARCH U (* ) , LOC (<Umin) ;L, K 
IF L<Nsam THEN Valid(L>=0 
K=L 

NEXT K 

FOR K=1 TO Nsam 

MAT SEARCH U(*> ,LOC(>Umax) ;L, K 
IF L<Nsam THEN Valid (L) =0 
K=L 

NEXT K 

FOR K=1 TO Nsam 

MAT SEARCH V ( * ) , LOC (<Vmin) ?L, K 
IF L<Nsam THEN VaIid(L)=0 
K=L 

NEXT K 

FOR K=1 TO Nsam 

MAT SEARCH V(*),LOCOVmax);L,K 
IF L<Nsam THEN Valid(L>=0 
K=L 

NEXT K 

MAT U* U . Valid 
MAT V= V . Valid 
MAT W= W . Valid 
MAT A- A . Valid 
MAT B= B . Valid 
MAT l- I . Valid 
MAT C» C . Valid 
SUB END 

SUB Data_aconvert {Gain} 

DISP "Converting Data" 

OPTION BASE 1 iT m ... W(*> .A(*) ,B(*) , I <*) 

COM /Data/ INTEGER Raw (*) .Valid (*), REAL Tabled. U< ).V( >.«< ).A( 

N*SIZE (Raw, 1) 

DIM Mv ( 1000) , Mvn (1000) , Amvn(lOOO) , Sum (1000) 

REDIM Mv (N) , M vn (N) , Amvn (1000) , Sum(N) ^ A 7 

• A TA =r 3:-.00 2 103« 2 ..00003U003 t 

MAT Mv= A* (1000/Gain) ! Tt_mv=Tt_raw/Galn 1000 

MAT Sum= (0) 

MAT Mvn= (1) 

FOR K=0 TO 7 
READ An 

MAT Amvn* (An) *Mvn 
MAT Sum= Sum+Amvn 
MAT Mvn= Mvn . Mv 
NEXT K 

MAT A= Sum+ (460) 

SUBEND 

; SUB Data_fconvert (Array (*) ) 

OPTION BASE 1 IIfM v( *j w(M ,A(*> rB<*> ,1 (*> #C(*) 

DISP "Converting Data" 

MAT Frng_spc= Array (25 , 1 : 3) 

MAT Brg_frq= Array (26, 1 : 3) 

MAT Mix_frq= Array (27 , 1 : 3) 

MAT Mea_sgn= Array (28, 1 : 3) 

MAT Brg_sgn= Array (29, 1 : 3) 

MAT Mix_sgn= Array ( 30 , 1 : 3) 
mat U= U* (Mea_sgn(l) ) 

MAT V- V* (Mea_sgn (2) ) 

s: 

mat V= V-MBrg sgn(2)*Brg f rq<2) +Mix_sgn (2) *Mix frq { )) 

M^x W+ ( Brg~sgn (3) *Brg”f rq (3) +Mix_sgn (3) *Mix_f rq (3) ) 

MAT U= U* (Frng_spc (1) ) 

MAT V* V* <Frng_spc (2) ) 

MAT W= W* (Frng_spc (3) ) 

MAT W= (0) 

SUBEND 
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19000 Data_sum: 

19010 

19020 

19030 

19040 

19050 

19060 

19070 

19080 

19090 

19100 

19110 

19120 

19130 

19140 

19150 

19160 

19170 

19180 

19190 

19200 

19210 

19220 

19230 

19240 

19250 

192 60 

19270 

19280 

19290 

19300 

19310 

19320 

19330 

19340 

19350 

19360 

19370 

19380 

19390 

19400 

19410 

19420 

19430 

19440 

19450 

19460 

19470 

19480 

19490 

19500 

19510 

19520 

19530 

19540 


SUB Data_sum (Sum( *}, INTEGER N(M,Nsam) 

OPTION BASE 1 IWM V(M W(M a(*),B(*)»I(*)»C(*) 

r*r\iui /r\ _ A / t MT FfF Q Raw # V3lici(*) # REAL T3blc()f^^' r ' 9 f 

K!SKS:SK:=iK5:5!K:=!K:S!5SSK 

DISP "Summing Data" 


MAT Uu= U , 
MAT Vv= V 
MAT Ww = W 
MAT Aa = A 
MAT Bb= B 
MAT Uv= U 
MAT Vw= V 
MAT Wu= W 
MAT Ab= A 
MAT Ua= U 
MAT Va= V 
MAT Wa= W 
MAT 11= I 
MAT Cc~ C 


U 

V 
w 

A 

B 

V 
W 

u 

B 
A 
A 
A 
, I 
. C 


Sum(l» 1) =SUM(U) 

Sum (2 , 1) =SUM (V) 

Sum {3, 1 } =SUM { W) 

Sum (4,1) =SUM (A) 

Sum (5,1) *SUM (B) 

Sum (6, 1) -SUM(I) 

Sum (7,1) =SUM (C) 

Sum( 1, 2) =SUM(Uu) 

Sum ( 2 , 2 ) =SUM (Vv) 

Sum (3 , 2) =SUM(Ww) 

Sum (4,2) =SUM (Aa) 

Sum ( 5 , 2) =SUM (Bb) 

Sum (6,2) =SUM (ID 
Sum (7,2) -SUM(Cc) 

Sum { 1 , 3) =SUM (Uv) 

Sum (2, 3)=SUM(Vw) 
Sum{3, 3) =SUM(Wu) 

Sum (4,3) =SUM ( Ab) 

Sum (5, 3>=SUM(Ua) 

Sum (6, 3) =SUM(Va) 

Sum (7,3) =SUM ( Wa) 

MAT N= (SUM (Valid) ) 
N ( 3 , 1) =0 
N ( 5, 1 1 =0 
N ( 3 , 2) =0 
N ( 5, 2) =0 
N ( 2, 3) =0 
N ( 3, 3 ) =0 
N ( 4 , 3) =0 
N ( 6, 3) =0 
N ( 7 , 3) =0 


19550 

SUBEND 


19560 Data calc: 

SUB Data_calc ( INTEGI 


Sum ( * ) ,U,V 

, W,A, 1 

19570 

DISP "Calculati: 

19580 

I ! : : i : : : : • 


195 90 

U = Q 


19600 

V=0 


19610 

W=0 


19620 

A= 0 


19630 

B=0 


19640 

1=0 


19650 

o 

n 

u 


19660 

IF N ( 1 # 1 ) 

THEN 

19670 

IF N ( 2 , 1 ) 

THEN 

19680 

IF N (3 1 1) 

THEN 

19690 

IF N ( 4 , 1 ) 

THEN 

19700 

IF N ( 5 , 1 ) 

THEN 

19710 

IF N ( 6 , 1 > 

THEN 

19720 

IF N (7 , 1) 

THEN 

197 30 

•!!•***•• 


19740 

U1 =0 


197 50 

VI =0 


19760 

W1 =0 


19770 

A1 =0 


19780 

B1 =0 



t i j i t i t t * j J I J ! ! ! ! ! ! ! 


V=Sum(2, 1) /N (2, 1) 

W=Sum(3, 1)/N(3»1) 

A-Sum ( 4 , 1) /N ( 4 , 1) 

B=Sum(5, 1) /N (5, 1) 

I«Sum(6,l>/N<6 f 1) 

C-Sum(7,l)/N(7,l) 

, tl , ,, t i i t !!! M !!!!!!!!!!!! !! !!!! M! M! ! 
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197 90 
19800 
19810 
19820 
19830 
19840 
19850 
19860 
19870 
19880 
19890 
19900 
19910 
19920 
19930 
19940 
19950 
19960 
19970 
19980 
19990 
20000 
20010 
20020 
20030 
20040 

20050 Data_trnsfrm: 
20060 
20070 
20080 
20090 
20100 
20110 
20120 
20130 
20140 
20150 
20160 
20170 
20180 
20190 
20200 
20210 
20220 
20230 
20240 
20250 
20260 
20270 
20280 
20290 
20300 
20310 
20320 
20330 
20340 
20350 
20360 
20370 
20380 
20390 
20400 
20410 
20420 
20430 
20440 
20450 
20460 
20470 
20480 
20490 
20500 
20510 
20520 
20530 
20540 
20550 
20560 
20570 
20580 


11=0 
Cl = 0 
IF N(l, 
IF N (2 , 
IF N {3 , 
IF N ( 4 , 
IF N (5 , 
IF N ( 6 , 
IF N (7, 


2> THEN U 1 =SQR(ABS (Sum(l, 2) /N (1,2) -U*UU 
2) THEN V1=SQR(ABS (Sum(2, 2) /N (2, 2) -V*V) ) 
2) THEN Wl=SQR(ABS(Sum{3,2) /N(3, 2)-W*W) ) 
2) THEN A1=SQR ( ABS ( Sum ( 4 , 2) /N { 4 , 2) -A*A) ) 
2) THEN Bl=SQR<ABS<Sum(5,2)/N(5,2)-B*B) ) 

2) THEN I1=SQR ( ABS ( Sum (6,2) /N (6, 2) -1*1 ) > 
2) THEN C 1 =SQR ( ABS ( Sum ( 7 , 2 ) /N(7,2)-C 


C) ) 


i i i i t i i t i 


Ulvl=0 
VI wl=0 
Wlul=0 
Albl=0 
Ulal=0 


Vlal=0 


Wlal=0 


IF N(l,3) THEN 
IF N (2, 3) THEN 
IF N (3 , 3) THEN 
IF N <4 ( 3) THEN 
IF N(5,3) THEN 
IF N (6 , 3) THEN 
IF N (7 , 3) THEN 

i t it ! i '!!!!!!!! 


Ulvl=Sum { 1 , 3) /N (1, 3) -U* 
Vlwl=Sum(2, 3) /N (2, 3) “V* 
Wlul=Sum(3, 3)/N(3,3)-W* 
Albl=Sum (4 , 3) /N ( 4 , 3 ) -A* 
Ulal=Sum<5, 3) /N (5, 3) -U* 
Vlal=Sum ( 6, 3) /N ( 6, 3 ) -V* 
Wla l=Sum (7, 3) /N (7, 3) — W* 

I f j | | » 1 J I J J M t T t I ! I M ! I 


V 

w 

u 

B 

A 

A 

A 


!!!!!!!! 


SUB Data_trnsfrm(REAL K (*) , U, V, W, Ul, VI , Wl, Ulvl, Vlwl, Wlul) 

OPTION BASE 1 

REAL Vabc { 3) , Vuvw (3) , Kabc ( 3 , 3) , First 

REAL Ku(3,3),Kv(3,3),Kw(3,3),Ktu(3,3),Ktv(3,3),Ktw(3,3) 

REAL Kuu(3,3),Kvv(3,3),Kw«(3 ( 3),Ku»(3.3).K™<3,3>,Kwu(3,3) 

REAL Kulul (3,3) ,Kvlvl (3, 3 ) , Kwl- 1 (3, 3> , Kulvl (3, 3) ,Kvlwl(3,3) , 
DISP "Transforming Results’* 

Vabc (1 ) =U 
Vabc <2 ) =V 


Vabc (3) =W 

Kabc(l,l)=Ul*Ul 

Kabc (1,2) =Ulvl 
Kabc (1,3) =Wlul 
Kabc (2, 1) =Ulvl 
Kabc (2,2) =V1*V1 
Kabc (2 , 3) =Vlwl 
Kabc { 3 , 1) =Wlul 
Kabc (3, 2) =Vlwl 
Kabc (3,3) =W1 *W1 
MAT Vuvw= K*Vabc 

[OUTPUT PRT USING " 6A, / , 3 ( 3 < 5DZ . 5D) , / ) * / f 
U=Vu vw (1) 

V=Vuvw (2) 

W=Vuvw (3) 

FOR 1=1 TO 3 

FOR J=1 TO 3 

Ku(I,J) =K ( 1 , I) 

Kv (I, J) =K(2, 1) 

Kw<I,J)*K(3, I) 

NEXT J 
NEXT I 

[OUTPUT PRT USING " 6A, /, 3 (3 ( 5DZ . 5D) ,/),/*? " Ku 
[OUTPUT PRT USING " 6A, / , 3 ( 3 (5DZ . 5D) , /) , t m * "Kv 
[OUTPUT PRT USING " 6A, V , 3 { 3 < 5DZ . 5D) , /) , /" 7 "Kw 
MAT Ktu= TRN(Ku) 

MAT Ktv= TRN (Kv) 

MAT Kt w= TRN(Kw) 

[OUTPUT PRT USING " 6A, / , 3 (3 ( 5DZ . 5D) , / ) , / ; Ktu 
[OUTPUT PRT USING "6A, /, 3 (3 (5DZ .SD) , /) , /"/"Ktv 
[OUTPUT PRT USING "€A, /, 3 <3 (5DZ . 5D> , /> , /"? "Kt* 
MAT Kuu= Ku . Kt u 

MAT Kvv= Kv . Ktv 

MAT Kww= Kw . Ktw 

MAT Kuv= Ku . Ktv 

MAT Kvw= Kv . Ktw 
MAT Kwu= Kw . Ktu 

[OUTPUT PRT USING " 6A, / , 3 (3 (5DZ . 5D) , /) , / ? Kuu 
[OUTPUT PRT USING "6A, / , 3 (3 (5DZ . 5D) , /> , /";"Kw 
[OUTPUT PRT USING "6A, / , 3 (3 (5DZ . 5D) , "Kww 
[OUTPUT PRT USING " 6A, /, 3 (3 ( 5DZ . 5D) ,/),/"? " Kuv 
'OUTPUT PRT USING H 6A, / , 3 (3 (5DZ . 5D) , /) , /"; Kvw 
^OUTPUT PRT USING - 6A, / , 3 (3 (5DZ .5D) , /) , /"; "Kwu 
MAT Kulul= Kuu . Kabc 
MAT Kvlvl= Kw . Kabc 


" , K ( * ) 


- , Ku ( * ) 
", Kv (*) 
" , Kw ( * ) 


", Ktu<*> 
" , Ktv ( * ) 
" , Ktw ( * ) 


* , Kuu ( * ) 
" , Kw ( * ) 
" , Kww ( * ) 
" , Kuv ( * ) 
" , Kvw < * > 
" , Kwu { * ) 


Kwlul (3,3) 
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20590 

20600 

20610 

20620 

20630 

20640 

20650 

20660 

20670 

20680 

20690 

20700 

20710 

20720 

20730 Data_print : 

20740 

20750 

20760 

20770 

20780 

20790 

20800 

20810 

20820 

20830 

20840 

20850 

20860 

20870 

20880 

20890 

20900 

20910 

20920 

20930 

20940 

20950 

20960 

20970 

20980 

20990 Data_plot : 
21000 
21010 
21020 
21030 
21040 
21050 
21060 
21070 
21080 
21090 
21100 
21110 
21120 
21130 
21140 
21150 
21160 
21170 
21180 
21190 
21200 
21210 
21220 
21230 
21240 
21250 
212 60 
21270 
21280 
21290 
21300 
21310 

21320 Hlsto: 
21330 Rt_histo: 
21340 
21350 

21360 


mat Kwlwl= Kww . Kabc 
MAT Kulvl* Kuv . Kabc 
MAT Kvlwl= Kvw . Kabc 
MAT Kwlul* Kwu . Kabc 
Ulul=SUM (Kulul) 
Vlvl=SUM (Kvlvl ) 
Wlwl=SUM (Kwlwl) 

U1 vl=SUM ( Kulvl ) 

VI wl =SUM ( Kvlwl ) 
Wlul=SUM (Kwlul) 
U1=SQR ( ABS (Ulul) ) 
V1=SQR (ABS (Vlvl) ) 
W1=SQR (ABS (Wlwl) ) 


SUB Data print (Axis, Pos, INTEGER Nsam, C$, REAL 

U V W,A,B,I,C,Ul,Vl,Wl,Al,Bl,Il.Cl.Ulvl, 

IF CS=”LDV" OR C$="TUN" THEN SUBEXIT 
DXSP "Printing Results" 


Vlwl, Wlul, Albl ,Ulal,Vlal,Wlal) 


ON ERROR CALL Error 

PRINTER IS PRT ; WIDTH 144 

PRINT CHR$ (27) 4"fc)c2S"6CHR$ (27) i"il9D"; 

L$=CHR$ (NUM ("X") +Axis-1) 


SELECT C$ 

CASE "MHz", "MOD" 

PRINT USING 20920;L$,Pos,U,Ul, Ulvl 
PRINT USING 20950; A, A1 » Albli Ulal 
PRINT USING 20930; "N", Nsam, V, VI, Vlwl 
PRINT USING 20960; B, Bl, II, Vial 
PRINT USING 20940;C$(1,3] , W, Wl , Wlul 
PRINT USING 20970;C,I,Cl,Wlal 
IF C$<>"MOD" THEN PRINT 


END SELECT 
PRINTER IS CRT 
OFF ERROR 

IMAGE f,8X, A, 3D.4D, " 
IMAGE #,8X, A, " , 8D," 

IMAGE #,8X,3A, 7X," 

IMAGE " A =" , 5D . 3D, " 
IMAGE " B =" , 5D . 3D, " 

IMAGE - , 5D. 3D, " 

SUBEND 

SUB Data_plot (Array (*), Symbols ( 
OPTION BASE 1 


U=" 

, 5D 

.3D 

, " 

V=" 

, 5D 

.3D 

, " 

W=" 

, 5D 

.3D 

, " 

Al 


5D. 

3D, 

B1 

* M , 

5D. 

3D, 

IAT 


5D. 

3D, 


*) , G, Y, PI, P2, 


Ul=", 5D.3D, " 
V1=",5D.3D," 
Wl=" , 5D . 3D, " 
A1B1*", 6D.2D, 
IAT1*", 6D.2D, 
CT1 =",6D.2D, 

3, Scale, INTEGER 


DIM Wndw (4) , Vwprt (4) , Symbol (20,3) 


DISP "Plot ing Results" 
AREA PEN -1 
PEN 1 


U1V1=",8D.2D 
V1W1*" , 8D . 2D 
W1U1=", 8D.2D 
, - U1A1=", 7D.2D 

V1A1=" , 7D. 2D 
r - WlAl=*, 7D.2D 

Nl, N2, N3) 


MAT Wndw= Array ( 40+G, * ) 

WINDOW Wndw (1) ,Wndw(2) ,Wndw(3) ,Wndw(4) 

CLIP ON 

FOR 1=0 TO 2 

IF 1=0 AND N1=0 THEN 21300 
IF 1=1 AND N2=0 THEN 21300 
IF 1=2 AND N3=0 THEN 21300 


Sy=I+l 

Noc=Symbol s (Sy , 0, 1) 

REDIM Symbol (Noc, 3) 

MAT Symbol = Symbol s ( Sy , 1 :Noc, * ) 
SELECT I 
CASE 0 

X=Pl*Scale 


CASE 1 

X=P2*Scale 
CASE 2 

X=P3*Scale 
END SELECT 

Xm=MIN (MAX (X, Wndw (1) ) , Wndw (2) ) 
Ym=MIN (MAX (Y, Wndw (3) ) , Wndw(4) ) 


MOVE Xm,Ym 

SYMBOL Symbol (*), FILL, EDGE 

NEXT I 


SUBEND , , t , , t , , , , t , i i i i m i * i i ! ! ! ! ! ! ! ! ! ! I ! ! ! ! ! ! ! ■ ! ■ * * • ! ! ! ! ' 

!!!!!!> 1 !!!!! J !! S M !!!M!!!! I H !! M M !! S !!!!! M! M I i 

SUB Rt histo (8Lvdas, Symbols {*) , Repeat ) 


OPTION BASE 1 
COM /Graph/ 


<*> 

INTEGER Hi at o( 1000, 3) , Nplota, Nbins, FI, F2, Al, A2 
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21370 

21380 

21390 

21400 

21410 

21420 

21430 

21440 

21450 

21460 

21470 

21480 

21490 

21500 

21510 

21520 

21530 

21540 

21550 

21560 

21570 

21580 

21590 

21600 

21610 

21620 

21630 

21640 Hsend : 
21650 Henter: 
21660 
21670 
21680 
21690 
21700 

21710 Hplot : 
21720 
21730 
21740 
21750 
21760 
21770 
21780 
21790 
21800 
21810 
21820 
21830 
21840 
21850 
21860 
21870 
21880 
21890 
21900 

21910 Hdone : 

21920 

21930 

21940 Histo: 

21950 Pt_histo: 

21960 

21970 

21980 

21990 

22000 

22010 

22020 

22030 

22040 

22050 

22060 

22070 

22080 

22090 

22100 Hsort : 
22110 
22120 
22130 
22140 
22150 


REAL Nnew, Nold,N(5) 

OUTPUT @Lvdas USING M AA"; M CA" 

FOR Channel=l TO 5 

CALL Set_up (Channel, Symbols {*) ) 

NEXT Channel 

CALL Convert2words ( . 1* 10000000 , A1 , A2 ) 

ON KBD GOSUB Hdone 
REPEAT 

FOR Channe 1=1 TO 5 
G=Channel 
SELECT Channel 
CASE 1,2 
Mi n=0 
Bin=20 
Ww=2 A Bin 
Kw=1000000 

CALL Convert 2words (Min, FI# F2) 


Atime=.l seconds 


CASE 4 

Min=-5 

Bin=10 

Ww=2 A Bin 


Fl=-1 


**AA, 6 (W) “ ; H TH\ FI, F2, Bin, A1,A2, Channel 
"f , W M ;Nbins 


F2=-32768 
Kw =32768/5 
CASE ELSE 

GOTO 21880 
END SELECT 
OUTPUT GLvdas USING 
ENTER 8Lvdas USING 
IF Nbins>0 THEN 

REDIM Hist o (Nbins, 3) 

ENTER GLvdas USING *#, W, -Histo <*) 

END IF 

ENTER QLvdas USING "# , W" ;Nnew, Nold Vwort (G, 4} /10 . 2 3 

VIEWPORT Vwprt <G, 1) /10 .23, Vwprt (G, 2) /10. 23, Vwpr ( , 

WINDOW Kw*Wndw (G,l) , Kw*Wndw (G, 2) ,Wndw(G,3) ,Wndw(G, 4) , n 

Xnixel-Kw. ,Wndw (Chanel , 2) -Wedv (Channel. 1. 1 / (Vwprt (Channel. 2, -Vwprt (Channel.il 


N1=N (Channel) 

N2=N (Channel) -Nold+Nnew 
N (Channel) =N (Channel ) -Nold+Nnew 


FOR 1=1 TO Nbins 

01d=MIN (HI st o ( I, 3) , Wndw(Channel, 4) > 
New=MIN (Histo ( I, 2 ) , Wndw (Channel, 4) ) 
AREA PEN SGN (New-Old) 

XI =Histo (1,1) *Ww+Min*Kw 


X2=Ww 
Yl=01d 
Y2=New-01d 
MOVE XI, Y1 

RECTANGLE X2-Xpixel , Y2 , FILL 
NEXT I 

NEXT Channel 

UNTIL KBD$<>" " OR NOT Repeat 

SUBEXIT 

Done=l 


RETURN 

i !!!!!!!,!!! HI !! M ! !!! ! !!! !!!! I I !!!!!! M !!!!! I !!!! 1! I!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! U l! !! I'. 

SUB Pt_histo (Symbols ( * ) , Run, File, Pos, INTEGER Nsam) 

CO^acaf™ Raw,*,. Valid,.,, REAL Table (*, ,U,*I ,V{*I ,W,*I .A,*, .B,*, .1,*, ,C(*) 

Wndw^ K Vwprt (*) , Xdiv<*) , Ydiv (*) .XlabelS (*, , YlabelS (*> , Titles (*) , XimageS (*) , YimageS (*) . Legends 

INTEGER Histo (0:100) 

REAL Data (1000) 

REDIM Data (Nsam) 

FOR Channel=5 TO 1 STEP -1 


G=Channel 

IF Channel=l THEN MAT Data= U 
IF Channel =2 THEN MAT Data= V 
IF Channel =4 THEN MAT Data= A 
SELECT Channel 
CASE 1,2,4 

CALL Set_up (Channel, Symbols (*) ) 
Xmin=Wndw (Channel, 1) 

Xmax=Wndw (Channel, 2) 

Xwin* (Xmax-Xmin) /100 
MAT Data= Data-(Xmin) 

MAT Data= Data/ ( (Xmax-Xmin) /100) 
MAT Hi sto= (0) 
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22160 

22170 

22160 

22190 

22200 Hplot : 

22210 

22220 

22230 

22240 

22250 

22260 

22270 

22280 

22290 

22300 

22310 

22320 

22330 

22340 

22350 

22360 

22370 

22380 Mlsc: 

22390 Convert2words : 

22400 

22410 

22420 

22430 

22440 Temp: 

22450 

22460 

22470 

22480 

22490 

22500 

22510 

22520 

22530 

22540 

22550 

22560 

22570 Error: 

22580 

22590 

22600 

22610 

22620 

22630 

22640 

22650 

22660 

22670 Fix: 

22680 
22690 
22700 
22710 
22720 
22730 
22740 
22750 
22760 
' 22770 

22780 
22790 
22800 
22810 
22820 
22830 
22840 
22850 
22860 
22870 
22880 
22890 
22900 
22910 
22920 
22930 
22940 
22950 


FOR K=1 TO Nsam 

L=MAX (MIN (Data (K) , 100) , 0) 
Histo(L) =Histo (L) +1 


VIEWPORT Vwprt <G,1> /10. 23, Vwprt (G, 2) /10. 23, Vwprt (G.3) /10.23, Vwprt (G, 4) /10.23 
WINDOW 0, 100, Wndw (G, 3) ,Wndw(G, 4) 

Xp ixel= (100-0) / (Vwprt (Channel, 2) -Vwprt (Channel, 1) ) 

MOVE 55,70 

IF G=2 THEN LABEL USING "2A, 2D . 2D" ? , Run 
IF G=1 THEN LABEL USING "2A, 2D . 3D" ; "Y= M , Pos 
IF G=4 THEN LABEL USING ”2A,2D ";"F= w ,File 
FOR K=0 TO 100 

IF Histo(K) THEN 
MOVE K-.5, 0 
AREA PEN SGN(l) 

RECTANGLE 1-Xpixel , Histo (K) , FILL 
END IF 
NEXT K 
END SELECT 


NEXT Channel 
SUBEXIT 
SUBEND 

t t m | r t t t i i i i j I t ; j t | i m i ; ; i ! ! ! I ! ! ! ! ! ! ! I I 

SUB Convert2words ( Real , INTEGER High, Low) 
Hex$=DVAL$ (Real, 16) 

High=IVAL ( Hex$ [1, 4 ) , 16) 

Low = IVAL ( Hex$ [ 5, 8 ] , 16) 


SUBEND 

SUB Temp (Mach, Mv, Ts, Tt ) 

. A0, Al, A2, A3, A4, AS, 

DATA 150, 257. 10163, -28. 16138, 6. 064559, -.792687,. 05708673, 
Tt =0 

FOR 1=0 TO 7 
READ K 

Tt=Tt +K*Mv A I 


A6, A7 

002103462, .00003110036 


NEXT I 
Tt =Tt + 460 
Ts=.09259*Tt 
IF Mach<>7 THEN BEEP 
IF Mach<>7 THEN PAUSE 
SUBEND 


SUB Error 


BEEP 

DISP ERRMS 
OUTPUT PRT; ERRM$ 

Prt=VAL (SYSTEMS ("PRINTER IS-)) 

PRINTER IS CRT 
PRINT TABXY ( 95, 1) ; ERRMS 
PRINTER IS Prt 
ERROR SUBEXIT 
SUBEND 

SUB Fix (Array (*) , NameS (*) , Image? ( * ) , Unit s$ ( - ) ) 


OPTION BASE 1 
Run=Array (3,1) 
SELECT INT (Run) 
CASE ELSE 


ImageS (3,1) 
Array (3,1) * 
Array (21, 1) 
Array (21 , 2) 
Array (21, 3) 
Array (22,1) 
Array (22,2) 
Array (22, 3) 
Array (23,1) 
Array (23, 2) 
Array (23, 3) 
Array (28,1) 
Array ( 29, 1) 
Array (30,1) 
Array (41,1) 
Array (41,2) 
Array (42,1) 
Array (42,2) 
Array (43,1) 
Array (43,2) 
Array (44, 1) 
Array (44,2) 
Array (45,1) 
Array (45,2 ) 


6D.2D- 

‘INT (Run) + .01 
.3125 
=.34375 
=.3125 
=30 
=30 
=30 

=2*ATN (Array (21 
=2*ATN (Array (21 
=2*ATN (Array <21 
=-l 
=1 
=1 
=0 

=100 

=0 

=100 

=0 

=100 

=-5 

=5 

=-5 

5 


! Run 
! Run 

! UBeamSpc 
! VBeamSpc 
! WBeamSpc 
! UFoclLen 
! VFoclLen 
I WFoclLen 
,1) /2/Array (22,1) ) 
,2) /2/Array (22, 2 ) ) 
, 3) /2/Array (22, 3) ) 
I UMeaSgn 
! UBrgSgn 
! UMixSgn 
! Xminl 
! Xmaxl 
! Xmin2 
! Xmax2 
! Xmin3 
! Xmax3 
! Xmin4 
! Xmax4 
! XminS 
! XmaxS 


! UFrngSpc 
! VFrngSpc 
! WFrngSpc 


A-31 


22960 

22910 

22980 

22990 

23000 

23010 

23020 

23030 

23040 

23050 

23060 

23070 

23080 

23090 

23100 

23110 

23120 

23130 

23140 

23150 

23160 

23170 

23180 

23190 

23200 


Array (61,1) =5 
Array (62, 1) =5 
Array ( 63, 1) =5 
Ar ray ( 64 , 1 } =4 
Array ( 65, 1 > =4 


23490 

23500 

23510 

23520 

23530 

23540 Purge: 

23550 

23560 

23570 

23580 

23590 

23600 

23610 

23620 

23630 

23640 

23650 

23660 

23670 

23680 

23690 

23700 

23710 


Array (46,4) 
Array (47, 4 ) 
Array ( 48 , 4) 
Array (49,4)= 
Array (49,1)= 
Array (49,2)= 
Array (61,4)= 
Array (62,4)= 
Array ( 63, 4 > = 
Array (64, 4) = 
Array (64,3)= 

T 

Array (35, 1) 
Array ( 36, 1) 
Array (35, 2) 
Array (36, 2) 
Array (35,3) 
Array (36,3) 
Array (36, 4 ) 


4 

4 

4 

4 

=0 

=2000 

=8 
=8 
= 8 
=8 
= 4 

=8 
= 40 
=20 
=55 
=10 
=70 
= 1 


Z. L V 

23220 

NameS (35,1) = "UFreqMin" 

23230 

NameS (36,1) ="UFreqMax" 

23240 

NameS (35,2) ="VFreqMin" 

23250 

NameS < 36, 2) ="VFreqMax" 

23260 

NameS (35,3) =" WFreqMin" 

23270 

NameS (36, 3)="WFreqMax" 

23280 

Name$(36,4)="Clip" 

23290 

1 

23300 

UnitsS (35,1) ="MHz M 

23310 

UnitsS (36, 1) ="MHz" 

23320 

UnitsS (35, 2>="MHz“ 

23330 

UnitsS (36, 2)=** MHz" 

23340 

UnitsS (35, 3) » M MHz" 

23350 

Unit s$ (36, 3) ="MHz" 

23360 

UnitsS (36,4)="** 

23370 

! 

23380 

Image$(35,l)="4D. 40- 

23390 

Image S (36,1)-**4D.4D" 

23400 

ImageS (35,2)="4D,4D" 

23410 

Image$(36,2)=-4D.4D- 

23420 

ImageS (35, 3}="4D.4D" 

23430 

ImageS ( 36, 3) =" 4D . 4D“ 

23440 

ImageS (36,4)=-9D" 

23450 

| 

23460 

END SELECT 

23470 

SUBEND 

23480 Scale: 

SUB Scale (G) 


! Xdlvl 
! Xdiv2 
! Xdiv3 
! Xdi v4 
! Xdiv5 

! Ymax6 
! Ymax7 
! Ymax8 
! Ymax9 
! Xmin9 
! Xmax9 
! Ydiv6 
! Ydiv7 
! Ydiv8 
! Ydi v9 
! Xdiv9 

! UFreqMin 
! UFreqMax 
! VFreqMln 
! VFreqMax 
! WFreqMin 
! WFreqMax 

! clip 

l UFreqMin 
! UFreqMax 
! VFreqMin 
! VFreqMax 
! WFreqMin 
! WFreqMax 
! Clip 

! UFreqMin 
! UFreqMax 
! VFreqMin 
I VFreqMax 
! WFreqMin 
! WFreqMax 
! Clip 

! UFreqMin 
\ UFreqMax 
! VFreqMin 
! VFreqMax 
I WFreqMin 
! WFreqMax 
! Clip 


OPTION BASE 1 

VIEWPORT Vwprt (G, 1) /10 .23, Vwprt (G, 2) /10 . 23, Vwprt (G, 3) /10. , P 

WINDOW Wndw (G, 1) ,Wndw(G,2) ,Wndw(G, 3) ,Wndw(G,4) 


SUBEND 

SUB Purge (SystemS ,Data$) 

OPTION BASE 1 
DIM FS (400) (80) 

MASS STORAGE IS DataS 

CAT TO FS (*) ; NAMES 

MAT SEARCH FS (*) , LOC < = ""),* N 

N=N-1 

IF N>0 THEN 

REDIM F$ (N) 

FOR 1=1 TO N 

IF F$ ( I ) (1,4) = H R. 01" THEN 
PURGE F$(I)&“<TKM>" 
DISP FS(I) 4"<TKM>" 

END IF 
NEXT I 
END IF 

MASS STORAGE IS SystemS 
SUB END 
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TABLE OF CONTENTS. 
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2 Revised Program “3.5’HWT92” Hard Copy Code Listing. 3 
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Hard Disk Directory Catalog Listing 


:CS80, 1400, 0 

, o 


VOLUME LABEL: 

B9826 


FILE NAME PRO 

TYPE 

REC/FILE 

SYSB60 

SYSTM 

3388 

CDUMP6 

PROG 

44 

BPLOT6 

PROG 

40 

AUTOST 

PROG 

10 

ARRAY 

BDAT 

50 

KEYS 

BDAT 

4 

COPY 

PROG 

25 

3.5' HWT92 

PROG 

816 


BYTE/REC 

ADDRESS 

DATE 

256 

32 

17- Jul-91 

256 

3420 

17- Jul-91 

256 

3464 

17- Jul-91 

256 

3504 

17- Jul-91 

256 

3515 

17- Jul-91 

256 

3566 

17- Jul-91 

256 

3570 

17- Jul-91 

256 

3967 

29-Mar-92 
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TIME 

13 : 10 
13:10 
13:10 
13 : 10 
13:11 
13:11 
13:11 
13:45 


3.5' HWT92 


100 Main: 
105 

no 

115 
120 
125 
130 
135 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 
200 
205 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
260 
265 
270 
275 
280 
285 
290 
295 
300 
305 
310 
315 
320 
325 
330 
335 
340 
345 
350 
355 
360 
365 
370 
375 
380 
385 
390 
395 
400 
405 
410 
415 
420 
425 
430 
435 
440 
445 
450 
455 
460 
465 
470 
475 
480 
485 
4 90 
495 


NASA AMES RESEARCH CENTER 
3.5 FOOT HYPERSONIC WIND TUNNEL 

Laser Doppler Velocirneter Test 


Property of COMPLERE INC. 
Proprietary software 
Copyright March 29, 1992 
Developed by: T. Kevin McDevitt 


t — 


PROGRAM DESCRIPTION: 

- -««>— 

If the model Is at angles of attack, yaw, and/or roll. volume within the tunnel and 

The Traverse Control System (TCS8) is used to £ traverse capability for both the 

about the model. The TCS8 provides t ree axes, p . Th Tx and r* side traverses can be moved 

transmitting (Tx) and receiving (Rx, side °P^ cal P“ C ^ 9 ”; e ^'J* h „ t o maintain laser alignment, 
independently to achieve laser alignment or ey coordinates where one inch of commanded movement will 

The TCS8 will give the traverse positions rn TUNNEL Qne lnch of movemen t of the probe 

yield one inch of movement on the traverse s • traV erse positions in -TUNNEL" coordinates will differ 

volume crossover point within the tunnel. owe , anales 0 f attack, yaw, and/or roll. Therefore, a 

from positions in "MODEL" coordinates it e ™° ** 1 l * tions to obtain positions in "MODEL" coordinates, 

coordinate system transformation is applied to P dlaDlaved of the LDV and analog data. After the 

During data acquisition, real time histograms -hear stresses will be calculated and displayed 

data have been acquired, the averages standard deviations, -nd^shear are also sent to the 

in profile plots where the data are P 1 ° tte V * rS h raw data are stored along with the tunnel conditions 

printer in tabular form. The reduced data as well further data reduction, data plotting, and/or data 

on the hard disc for archival purposes and also to allow tor turtner a 

transfer to other computers. 

PROGRAM OPERATION: 

The following power up sequences should be completed before this program is 

1. Turn on the "MDS" Motor Drive System boxes. 

2. Turn on the "TCS8" Traverse Control System. 

3. Turn on the "LVDAS" Laser Velocirneter Data Acquisition Syste . 

4. Turn on the HP series 9000 model 375 computer. , turned on. If it is not loaded, 

This program will automatically be loaded and executed when the computer is turned 

then you can type In the following commands to load and then execute It. 

LOAD "3. 5’HWT:, 1400,0,0" 

When the R ptogtam is ready for user operation It -ill 

menu, TCS8 traverse positions, and new sets of histogram and profile 
then the following actions should be performed to reinitialize the systems. 

l! Press shift reset on the HP series 9000 model 375 computer's keyboard. 

2. Press reset on the back of the TCS8. 

3. Press reset on the front (or back) of the LVDAS . 

4 ] LOAD "3.5* HWT : , 1400, 0, 0" 

5. RUN 

PROGRAM VARIABLES: 

Mass Storage Variables: 


SystemS 
Dat aS 
FileS 

Menu Variables: 

MenuS ( * ) 
Menu 

Key 

Busy 

Ready 


Tells the program where to read/store system data related files. 

Tells the program where to read/store raw and reduced data related files. 

File name for tunnel conditions data or raw and reduced data. 

cit-:rur:.*s scrjirr.*.: 

...» «->■.. ......... ..... ... - -~ 

;:rru; :rs;» ... ....... — - - r«: 

Tells the Menu Status subprogram to dlaplay the current menu selection In 


Traverse Position Variables: 


Tunl(*> 
Tun2 {*) 
Modi (*) 


/y1 yi 71 Al) in -TUNNEL" coordinates. 

TCS8 transmitting side traverse portion. 1 -TUNNEL" coordinates. 

TCS8 receiving side traverse po. ’ ' “ "MODEL" coordinates. 

TCS8 transmitting side traverse positions <X1,Y1,Z1,A1) 
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Traverse Positions and Velocity Coordinate System Transformation Variables: 


500 

| Mod2 t " ) 

505 

! Side$ 

510 

| 

515 

1 

520 

! 

525 

! CoorS 

530 

i 

535 

1 

540 

! ModeS 

545 

i 

550 

! 

555 

! Movement 

560 

! Paxis 

565 

t 

570 

! Auto Move Trave: 

575 

! 

580 

! Post") 

585 

! PnameS { *) 

590 

! PimageS ( * ) 

595 

l Punit sS ( * ) 

600 

! Npos 

605 

! Paxis 

610 

T 

615 

! Traverse Positi 

620 

J 

625 

! Alpha!*) 

630 

t 

635 

t 

640 

i 

645 

! Mod2tun(") 

650 

! Tun2modt") 

655 

t 

660 

! Tunnel Conditic 

665 

i 

670 

! Arrayt") 

675 

J NameS {*) 

680 

! ImageS {*) 

685 

! UnitsSt") 

690 

j 

695 

! Misc. Tunnel C< 

700 

i 

705 

! Date 

710 

! Time 

715 

I Run 

720 

! File 

725 

! Mach 

730 

! Re_ft 

735 

; Uedge 

740 

l Uinf 

745 

! Stemp 

750 

! Ttemp 

755 

! Tt_mv 

760 

! Tt raw 

765 

! Gain 

770 

t 

775 

! LVDAS Variable 

780 

j 

785 

! Tablet") 

790 

! Atime 

795 

! Ctime 

800 

! At_exp 

805 

! Ct_exp 

810 

! Nreads 

815 

! Nsam 

820 

! Coin!*) 

825 

! Cmask 

830 

J Raw ( * ) 

835 

! 

840 

! Instantaneous 

845 

! 

850 

! Ui(") 

855 

! Vi<*> 

860 

I Wit") 

865 

! Ai{") 

870 

! Bit*) 

875 

! lit") 

880 

! CM") 

885 

! Valid!*) 

890 

j 

895 

! Histogram Cli 


TCS8 transmitting side traverse positions «X2. Y2. 22. A2 . in "MODEL" coordinates. 
Indicates which siaes are to be r.ovea: 

Tx : Transmitting side only. 

r x : Receiving side only. 

Tx & Rx : Both sides toqether. 

Indicates which coordinate system the movement is to be made in: 

TUNNEL : TUNNEL coordinates. 

MODEL : MODEL coordinates. 

Indicates which movement mode is to be comp.etea: 

RELATIVE: Movements are relative to current positions. 

ABSOLUTE: Movements are to assolute positions. 


Array of pre-programmed auto move positions. 

Names for the variables in Post"). 

Image formats for Che variables in Post"). 

Units for the variables in Post"). 

^rrsTAn: P i«.. 


Angles of attack, yaw, ar.d roll. 
Alpha ( 1 > : Angle of Attack. 

Alpha (2) : Angle of Yaw. 

Alpha ( 3) : Angle of Roll. 


positions & velocities from MODEL to TUNNEL 
l uplnrities from TUNNEL to MODEL 


laser parameters, graph scales, etc. 


Array of tunnel conditions, 

Names for the variables in Arrayt"). 

Image formats for tne variables in Arrayt") 
Units for the variables in Arrayt"). 


Date . 

Time . 

Run Number. 

File Number. 

Mach Number. 

Re/Ft (Reynolds Number per Foot) . 

Freestream Velocity (rr/s) . 

Freest ream Velocity Im/s) . 

Stagnation Temperature (deg R) . 

Total Temperature (deg R) . 

Total Temperature data in gained millivolts. 
Total Temperature raw data in ungained volts. 
Gain for total temperature raw analog data in 


ungained voles to gained millivolts conversion. 


Lookup table of frequencies. 

The maximum desired acquisition time (seconds). 
The maximum desired coincidence time (seconds) , 
Exponent for inter-arrival times. 

Exponent for coincidence times. 

Number of desired samples. 

Number of acquired samples. 

Coincidence criteria. 

Coincidence mask for U,V,W selection. 

Array of raw data acquired from tne LVDAS. 


Read f 
Read f 
Read f 
Read f 
Read f 
Read f 
Read f 
Valida 


rom LVDAS as 
rom LVDAS as 
rom LVDAS as 
rom LVDAS as 
rom LVDAS as 
rom LVDAS as 
rom LVDAS as 
ition words. 


the instantaneous U frequency data, then converted Into U velocities, 

the instantaneous V frequency data, then converted into V velocities, 

tne instantaneous W frequency aata. then converted into W velocities, 

the instantaneous A voltage data. 

the instantaneous 9 voltage data. . . 

the raw inter-arrival time data, then converted into inter-arrival ti . 
the raw coincidence time data, then converted into coincidence t im . 
Initially ail ones, then some set to rero during histogram clipping. 
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905 

! Umin 

910 

! Umax 

915 

! Vmin 

920 

! Vmax 

925 

! Wmin 

930 

! Wmax 

935 

! Clip 

940 

i 

945 

! Frequency to Vel< 

950 

! 

955 

! Beam_spc<*) 

960 

! Focl_len(*) 

965 

! Beam_sep{*) 

970 

! Wave len(*) 

975 

! Frng_spc(*) 

980 

! Brg_f rq { * ) 

985 

! Mix_f rq ( * ) 

990 

! Mea_sgn(M 

995 

! Brg_sgn( # ) 

1000 

1005 

! Mix_sgn(*} 

t 

1010 

1015 

[ Summation Variab 

t 

1020 

! Sumu 

1025 

! Sumv 

1030 

! Sumw 

1035 

! Sum a 

1040 

! Sumb 

1045 

! Sumi 

1050 

! Sumc 

1055 

! Sumuu 

1060 

! Sumw 

1065 

! Sumww 

1070 

! Sumaa 

1075 

! Sumbb 

1080 

! Sumii 

1085 

! Sumcc 

1090 

! Sumuv 

1095 

! Sumvw 

1100 

! Sumwu 

1105 

! Sumab 

1110 

! Sumua 

1115 

! Sumva 

1120 

! Sumwa 

1125 

1130 

I Suml 

t 

1135 

1140 

! Reduced Data Va 

i 

1145 

! N 

1150 

! U 

1155 

! V 

1160 

! W 

1165 

! A 

1170 

! B 

1175 

! I 

1180 

! C 

1185 

! U1 

1190 

! VI 

1195 

! W1 

1200 

! A1 

1205 

! B1 

1210 

! 11 

1215 

! Cl 

1220 

! Ulvl 

1225 

! Vlwl 

1230 

! Wlul 

1235 

! Albl 

1240 

! Ulal 

1245 

! Vial 

1250 

! Wlal 

1255 

1 

1260 

! Data Plotting ! 

1265 

I 

1270 

! Symbols ( * ) 

1275 

! Symbol ( * ) 

1280 

! Dot ( M 

1285 

! Noc 

1290 

! Sy 

1295 

t 


The minimum acceptable U frequency (MHz) . 

The maximum acceptable U frequency (MHz) . 

The minimum acceptable V frequency (MHz). 

The maximum acceptable V frequency (MHz) . 

The minimum acceptable W frequency (MHz). 

The maximum acceptable W frequency (MHz) . 

Clip: 1 turn histogram clipping on; 0 turns it off. 


Beam spacing at lens. 

Focal length. 

Beam separation angle in degrees (full angle 
Wave length. 

Fringe Spacings. 

Bragg Frequencies. 

Mixing Frequencies. 

Measured Frequencies' Signs. 

Bragg Frequencies' Signs. 

Mixing Frequencies' Signs. 


Summation 
Summat ion 
Summat ion 
Summat ion 
Summat ion 
Summat ion 
Summat ion 
Summat ion 
Summat ion 
Summat ion 
Summat ion 
Summat ion 
Summat ion 
Summat ion 
Summat ion 
Summat ion 
Summat ion 
Summat ion 
Summation 
Summat ion 
Summat ion 
Number of 


of all 
of all 
of all 
of all 
of all 
of all 
of all 
of all 
of all 
of all 
of all 
of all 
of all 
of ail 
of all 
of all 
of all 
of all 
of all 
of all 
of all 
valid 


o f 

the 

valid 

Ui . 

of 

the 

valid 

Vi. 

of 

the 

va 1 id 

Wi. 

of 

the 

valid 

Ai. 

of 

the 

valid 

Bi . 

o f 

the 

valid 

Ii. 

of 

the 

va lid 

ci. 

of 

the 

va 1 id 

ui*ui . 

of 

the 

va 1 id 

Vi*Vi , 

of 

the 

va lid 

Wi*Wi. 

o f 

the 

valid 

Ai *Ai . 

of 

the 

va lid 

Bi *B i . 

of 

the 

valid 

Ii*Ii. 

of 

the 

va 1 id 

Ci*Ci . 

of 

the 

va lid 

Ui*Vi . 

of 

the 

valid 

Vi*Wi . 

o f 

the 

valid 

Wi *Ui . 

o f 

the 

valid 

Ai *Bi . 

of 

the 

valid 

Ui *Ai . 

of 

the 

va 1 id 

Vi*Ai . 

of 

the 

valid 

Wi*AI. 

samples 

for the above summations 


Number of valid samples acquired. 

Average U frequency or velocity. 

Average V frequency or velocity. 

Average W frequency or velocity. 

Average A voltage. 

Average B voltage. 

Average inter-arrival time. 

Average coincidence time. 

Standard deviation for U frequency or velocity. 

Standard deviation for V frequency or velocity. 

Standard deviation for W frequency or velocity. 

Standard deviation for A voltage. 

Standard deviation for B voltage. 

Standard deviation for inter-arrival time. 

Standard deviation for coincidence time. 

Velocity : Velocity Shear Stress. 

Velocity :Velocity Shear Stress. 

Velocity :Velocity Shear Stress. 

Voltage rVoltage Cross Correlation. 

Ve loci ty : Voltage Cross Correlation. 

Velocity ;Voltage Cross Correlation. 

Velocity :Voltage Cross Correlation. 


Array of Symbol arrays. Each symbol array contains a distinct geometric symbol. 
Array of coordinates which when connected produce a distinct geometric symbol. 
Array of coordinates which produce a dot. The dot symbol is added to all symbols. 
The number of coordinates in a symbol. 

Used to index the Symbols array. 


B-5 


1300 
1305 
1310 
1315 
1320 
1325 
1330 
1335 
1340 
1345 
1350 
1355 
1360 
1365 
1370 
1375 
1380 
1385 
1390 
1395 
1400 
1405 
1410 
1415 
1420 
1425 
1430 
1435 
1440 
1445 
1450 
1455 
1460 
1465 
1470 
1475 
1480 
1485 
1490 
1495 
1500 
1505 
1510 
1515 
1520 
1525 
1530 
1535 

1540 Here: 

1545 

1550 

1555 

1560 

1565 

1570 

1575 Onjcey 
1580 
1585 
1590 
1595 
1600 
1605 
1610 
1615 

1620 Keys: 
1625 
1630 
1635 
1640 
1645 
1650 
1655 
1660 
1665 
1670 
1675 
1680 
1685 
1690 
1695 


Histogram and Profile Graph Variables: 


Wndw ( *) 
Vwprt (*) 
Xdi v ( * ) 
Ydiv(') 
XlabelS (*> 
Y label? (*) 
TitleS (*) 
XimageS {*) 
YimageS (*) 
Legends ( # ) 
G 

Gsave ( * ) 


Array containing t 
Array containing t 
Array containing t 
Array containing t 
String array conta 
String array conta 
String array conta 
String array conta 
String array conta 
String array conta 
Used as an index t 
Used to save the e 


he plots ' scales . 
he plots' CRT positions. 

he number of X divisions for the plot’s X axis, 
he number of Y divisions for the plot’s Y axis, 
ining labels for the X axis, 
ining labels for the Y axis, 
labels for the plots. 

image formats for the X axis labeling, 
image formats for the Y axis labeling, 
labels for each symbol in a profile plot, 
o the above arrays. Specifies one of nine plots, 
sntire graphics contents of the CRT. 


ining 

ining 

ining 

ining 


! Dimension the variables and arrays defined above. 

COM^/Pos^P names (25,1) [101, PimageS (25,1) [10], P unit sS (25,1) [10], REAL Poa (25, 1) .Npoa 
COM /Array/ NameSUOO, 4) (10) , Image* (100, 4) (10) .UnitsS (100, 4) UOl , REAL Array , 

TOM /Datal / REAL Table {0 : 32766) , INTEGER Raw ( 1000, 10) , Valid (1000) 

COM /Data2/ REAL U1 (1000) , VI (1000) , Ml (1000) ,A1 (1000) , B1 (1000) , II (1000) , Cl (1000) 

COM /Data3/ REAL PuuUOOoi.Pvv (1000) , Pww(lOOO) , Paa (1000) . Pbb (1000, , Pli (1000) , Pec 1000 
COM /Data-./ REAL Puv(lOOO) .Pvw (1000) , Pwu(lOOO) , P.b (10001 l.Pua (1000) .Pv. (1000 ,P-a (1000) 

COM /Graphl/ Wndw( 9 , 4 ) , Vwprt (9, 4) , Xdlv (9) , Ydiv (9) , XlabelS (9) [80] , YlabelS 9) (80) 

COM /Graph2/ TitleS(9) [80] .XimageS (9) [ 80] , YimageS (9) [80] , Legends (9, 5) [801 
COM /Colorl/ Clear, Black, Red, Yellow, Green, Cyan, Blue, Magenta 
COM /Color 2/ White , 01 ive, Aqua, Roya 1 , Maroon, Brick, Brown, Gray 

COM /Suml / REAL Sumu, Sumv, Sumw, Suma, Sumb, Sumi , Sumc, Suml 

COM /Sum2/ REAL Sumuu, Sumw, Sumww, Sumaa, Sumbb, Sumi i, Sumcc 

COM /Sum3/ REAL Sumuv, Sumvw, Sumwu, Sumab, Sumua, Sumva, Sumwu 

COM /Reduced/ N, U, V, W, A, B, I , C, Ul, VI , W1 , A1 , B1 , 1 1 , Cl , Ulvl , Vlwl , Wlul , Albl , Ulal , Via 1 , W1 al 

DIM MenuS (6, 8) [80 ], System* (20 J , Dat a$ { 20 ] , FileS [ 50 ] , L$ [ 160 1 ,Kbd$[160] 

INTEGER Gsave(1280, 1024) , Atexp, Ct_exp, Cmask, Nsam 
REAL At ime, Ct ime, Symbols (5,0:20,3) 

DIM Tun2mod [3,3) ,Mod2tun (3,3), Tunl ( 4 ) , Tun2 ( 4 } , Modi ( 4 ) , Mod2 ( 4 > , Alpha ( 3) 

DIM Beam_spc (3) , Focl_len (3) ,Mea_sgn(3) , Mix_f rq { 3) , Mix_sgn { 3) , Frng_spc ( 3 > 

DIM Beam_sep ( 3 ) ,Wave_ien(3) ,Brg_frqO) ,Brg_sgn(3) ,Coin(3) 

DEG ! Perform trigonometric operations in degrees. 

j 

* Perform any necessary setup and initialization routines. 

Clear the CRT and direct printed output to it. 

Initialize the HP to LVDAS interface. 

Select mass storage devices for system and data files. 

Initialize the HP to TCS8 interface. 

Initialize the user driven menus and display the main menu. 

Initialize the CRT and plot the nine empty plots for profiles and histograms. 

I The main program, while continually displaying the time of day. will wait here for menu key selection. 

Date=TIMEDATE 

Time=Date 

DI SP ? CHRS ( 129? ; " ",-TIMES (TIMEDATE) ; " -, -DATES (TIMEDATE) -,-CHRS (128) 

GOTO Here 

ON°KEY 1 GOSUB Keyl ! If the user function key II Is ever pressed then execute the 

If the user function key 12 Is ever pressed then execute the ^ subroutlne . 

subrout ine . 


CALL Crt_init 
GOSUB Lvds_set_up 
GOSUB File_set_up 
GOSUB Tcs8_set _up 
GOSUB Menu_set_up 
GOSUB Grph_set_up 


II tne use i iuiivtiwu j w s 

If the user function key #3 is ever pressed then execute the 

If the user function key #4 is ever pressed then execute the 

- i- » the 


the 

"Keyl" 

the 

"Key2" 

the 

"Key3" 

the 

"Key4" 

the 

"Key5" 

the 

"Key6" 

the 

"Key7" 

the 

"Key8" 


1 GOSUB Keyl 
ON KEY 2 GOSUB Key2 

ON KEY 3 GOSUB Key3 

ON KEY 4 GOSUB Key4 ! If the user function xey »«. I' xecute the "KeyS" subroutine. 

ON KEY 5 GOSUB KeyS ! If the user function key 15 Is ever P r «® execute the "Key6” subroutine. 

ON KEY 6 GOSUB Key6 ! If the user function key i« Is ever pres execute the “KeyT subroutine. 

ON KEY 7 GOSUB KeyT ! If the user function key .7 s ever pressed then execute the _ y 

ON KEY 8 GOSUB KeyS ! If the user function key #8 is ever press 

RETURN 

Subroutine Keyl , Key 2, Key3. Key4 , KeyS , Key 6, Key7, KeyS descriptions: am wU1 execute one the 

When one of the special user function keys is pressed, the main program will ex 

following eight subroutines. Each of these subroutines performs essentially t e 

function in that it subsequently executes one of the menu su ^°^ines • * pressed, 

subroutine to be executed will depend on the current menu lenu entry at the top of 

Before the selected menu subroutine Is executed, the corresponding menu entry .t 

rhe CRT is redisplayed In red text ^ When the highlighted menu 

acknowledged and that any resultant anions are s P g and updated on the CRT 

subroutine has completed the current TCS8 traverse positions will be read and P ^ bluft 

display. The corresponding menu entry displayed at t e top o e select another special 

text to indicate the completion of the menu subroutine. The user can then 

function key. 

Varl Mair’ Indicates which of the menus has been selected as the current ex<!Cuted 

Indicates which one of eight menu subroutines 1" the menu is to b. = t«d 


Key 

MenuS ( * ) 


Indicates which one ot eignt menu ... function. 

String array where each element describes its corresponding menu subroutine 
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1700 

1705 

1710 Keyl : 

1715 

1720 

1725 

1730 

1735 

1740 Key2 : 

1745 

1750 

1755 

1760 

1765 

1770 Key3 : 

1775 

1780 

1785 

1790 

1795 

1800 Key4 : 
1805 
1810 
1815 
1820 
1825 

1830 Key5 : 

1835 

1840 

1845 

1850 

1855 

1860 Key6 ; 
1865 
1870 
1875 
1880 
1885 

1890 Key7: 

1895 

1900 

1905 

1910 

1915 

1920 Key8 : 

1925 

1930 

1935 

1940 

1945 

1950 Menul : 
1955 
1960 
1965 
1970 
1975 
1980 
1985 
1990 
1995 
2000 
2005 
2010 
2015 
2020 
2025 
2030 
2035 
2040 
2045 
2050 
2055 

2060 Mlkl: 
2065 
2070 
2075 

2080 Mlk2 : 
2085 
2090 
2095 


. Busy Tells the Menu Status subroutine to display the current menu selection 

| Ready Tells the Menu Status subroutine to display the current menu selection 

K e y =1 

CALL Menu_status (Menu, Key, Busy, MenuS (*) ) 

ON Menu GOSUB Mlkl , M2kl , M3kl , M4kl , M5kl , M6kl , M7kl 

CALL Menu status (Menu, Key , Ready , MenuS (*) ) .... 

CALL TcsBread (@Tcs8, Tunl < * > , Tun2 < • > , Modi ( * ) , Mod2 ( * I , Tun2mod ( ) ,Mod2t un ( ) ) 

RETURN 
Key = 2 

CALL Menu_stat us (Menu, Key, Busy , MenuS (* ) ) 

ON Menu GOSUB Mlk 2 ,M 2 k 2 , M3k2 , M4k2 , M5k2 , M6k2 , M7k2 

CALL Menu status(Menu, Key, Ready, Menu$<*)) .... 

CALL TcsBread (8Tcs8, Tunl (*) ,Tun2 (*) .Modi (* ) ,Mod2 (* ) ,Tun2mod (*) ,Mod2tun( )) 

RETURN 

Key=3 

CALL Menu_stat us (Menu, Key, Busy , MenuS < M ) 

ON Menu GOSUB Mlk 3 , M 2 k 3 , M3k3, M4k3, M5k3 , M6k3, M7k3 
CALL Menu stat us (Menu, Key , Ready , MenuS (*) ) 

CALL Tcs8read ( 8Tcs8 , Tunl ( * ) , Tun2 (*), Modi <*>, Mod2 < * > , Tun2mod ( * ) , Mod2tun ( ) ) 

RETURN 
Key = 4 

CALL Menu stat us (Menu, Key , Busy , MenuS (*) ) 

ON Menu GOSUB Mlk 4 , M 2 k 4 , M3k4 , M4k4 , M5k4 , M6k4 , M7k4 

CALL Menu status (Menu, Key, Ready, MenuS (*) ) ,, 

CALL Tcs8read (0Tcs8, Tunl ( * ) , Tun2 ( * ) . Modi ( * ) , Mod2 (* ) . Tun2mod ( ) . Mod2tun ( ) > 

RETURN 
Key =5 

CALL Menu_st at us (Menu, Key, Busy , MenuS ( * ) ) 

ON Menu GOSUB Mlk 5 , M 2 k 5 , M3k5 , M4k5, M5k5 , M6k 5 , M7k5 

CALL Menu status (Menu, Key, Ready, MenuS (* ) > M ^ 9 n,n<*n 

CALL Tcs Bread ( 0Tcs8, Tunl (*) , Tun2 (* ) ,Modl (*) , Mod2 ( * ) , Tun2mod ),Mod2tun< 

RETURN 

Key=6 

CALL Menu_stat us (Menu, Key, Busy, MenuS ( * ) > 

ON Menu GOSUB Mlk6, M2k6,M3k6, M4k6, M5k6, M6k6, M7k6 
CALL Menu_status (Menu, Key, Ready, MenuS <*) ) 

CALL TcsBread ( 8Tcs8, Tunl ( * ) , Tun2 ( * ) , Modi ( * > , Mod2 ( * ) ,Tun2mod ),Mod2tun< 

RETURN 
Key =7 

CALL Menu_stat us (Menu, Key, Busy, MenuS (*) ) 

ON Menu GOSUB Mlk7 , M2k7, M3k7 , M4k7 , M5k7 , M6k7 , M7k7 

CALL Menu_status (Menu, Key, Ready, MenuS (*) ) u 

CALL Tcs8read ( @Tcs8 , Tunl < * ) , Tun2 ( * } , Modi ( * ) , Mod2 ( * ) , Tun2mod ( ),Mod2tun( )) 

RETURN 

Key-8 

CALL Menu_stat us (Menu, Key, Busy , MenuS (*) ) 

ON Menu GOSUB Mlk8 , M 2 k 8 , M3k8, M4k8, M5k8 , M6k8 , M7k8 

CALL Menu_status (Menu, Key, Ready, MenuS (*) ) .... 

CALL Tcs8read(0Tcs8, Tunl {*) ,Tun2 (*), Modi (*) ,Mod2(*} ,Tun2mod( },Mod2tun( 


In red text . 
in blue text. 


RETURN 

! Descriptions of the “Main Menu 
j The eight subroutines 

! displayed at the top left 


" subroutines M1K1, . > > ,M1K8: ^ 

M1K1 , . . . , M1K8 together implement the "Main Menu", 
of the CRT display when the "Main Menu" Is selecte 


The 

d: 


following will be 


M1K1: Laser Alignment 
M1K2 : Pre Run 

M1K3: Post Run (Dump Graphics) 

M1K4: Set Auto Move Positions 

M1K5 : Move traverse 

M1K6 : Take data 

M1K7: Auto move and take 

M1K8: Display Histograms 


M1K1 -111 change the current active menu from the -Main Menu- to the "L.-er 
M!K2 will change the current active menu from the -Main Menu- to the -Pre Run Menu HIM "1“ 
transfer the graphics contents of the CRT to the printer. This prov es a “ C M1K5 mo ves the 
plots. Ml K4 has the user enter predefined traverse positions for a profile plot.nus. 

t ave se to a user selectable position. M1K6 acquires LVDAS Q n « up by 

nnQitlnn M1K7 acauires LVDAS data at each of the pre programed TCS8 traverse positions set p y 
MIMM^KB repeatedly displays five channels of real time histograms until the user presses any 
key on the keyboard. 

Change the current active menu from the -Main Menu- to the -Laser Alignment Menu-. 

Menu=2 

CALL Menu_dlsp (Menu, Menu$ <*) ) 

RETURN 

■ Change the current active menu from the -Main Menu- to the -Pre Run Menu . 

Menu*3 

CALL Menu_disp (Menu, MenuS (*> ) 

RETURN 
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2100 Mlk3: 

2105 

2110 

2115 

2120 

2125 

2130 

2135 

2140 

2145 

2150 

2155 

2160 

2165 

2170 Mlk4: 
2175 
2180 
2185 
2190 
2195 
2200 
2205 
2210 
2215 
2220 
2225 
2230 

2235 Mlk5 : 
2240 
2245 
2250 

2255 Mlk5a: 

22 60 
2265 
2270 

2275 

2280 

2285 

2290 

2295 

2300 

2305 Ml k6 : 

2310 

2315 

2320 

2325 

2330 

2335 

2340 

2345 

2350 

2355 

2360 

2365 

2370 

2375 

2380 

2385 Mlk7 ; 

2390 

2395 

2400 

2405 

2410 

2415 

2420 

2425 

2430 

2435 

2440 

2445 MlkS : 
2450 
2455 
2460 

2465 Menu2 : 

2470 

2475 

2480 

2485 

2490 


f vu- trt tn i-hP nrinter This provides a hard copy of the plots. 
Transfer the graphics contents of t ^ off P the ke ^ label , »o that they won't be printed. 


Clear the CRT's display line so that they won't be printed. 
Clear the CRT's menu lines so that it won't be printe . 


Direct printed output to the printer. 

Print the "header" tunnel conditions. 

Dump the entire CRT * s contents to the printer. 
Move to the top of the next page on the printei 
Direct printed output to the CRT. 

Redisplay the menus. 


, Tun2mod { * ) ,Mod2tun<*) ) 

"K") 


*> 


"Tx 4 Rx" , "MODEL" , “ABSOLUTE" 


KEY LABELS OFF 
PRINTER IS CRT;WIDTH 132 
DISP "" 

FOR L=1 TO 9 

PRINT TABXY ( 1 , L) ; RPTS ( " ",120) 

NEXT L 

PRINTER IS PRT 
GOSUB Pr int_header 
CALL Dump 
PRINT USING "#,0" 

PRINTER IS CRT 

CALL Menu_disp (Menu, MenuS (*) ) 

" E Ha^ the user enter predefined traverse positions for^a profile plot. 

CALL Enter_value ( "number of traverse posit ions- , Npos, ,”K") 

REDIH Pos (Npos, 1) , PnameS (Npos. 1) , PimageS (Npos, 1) .PunitsS (Npos, 1) 

MAT Pimage$= ("M4D.4D") 

MAT Punits$= ("in") 

FOR K=1 TO Npos 

PnameS (K, 1 ) ="Pos# " 4VALS (K) 

NEXT K 

GSTORE Gsa ve ( * ) 

CALL Change ( "VALUES" , Pos { * ) , PnameS ( *) , P imageS < *) , PunitsS ( 

GLOAD Gsave { * ) 

CALL Menu_disp (Menu, MenuS (*) ) 

RETURN 

! Moves the traverse to a user selectable position. 

GOSUB Read_calc_f ill 

CALL Tcs8read(6Tcs8,Tunl (*) ,Tun2 (*) .Modi (*) ,Mod2 (*) , 

CALL Enter_value (CHRS (NUM ( "X" ) +Paxis-1 ) .Modi (Paxis) , 

ON K8D CALL Do_nothing 
DISP "Moving" 

Movement =Modl (Paxis) ^ , „ _ „ 

CALL TcsBmove ( 9Tcs 8 , Tunl ( • ) , Tun2 ( * ) , Modi < ■ * ) , Mod2 ( • ) , Tun2mod ( *) , Mod2tun ( 

Paxis, Movement) 

CALL Tcs8read(0Tcs8. Tunl (*),Tun2(*>, Modi ( * ) , Mod 2 <* ) , Tun2mod < * > ,Mod2t un ( )) 

GOSUB Calc 
GOSUB Fill 
DISP "" 

OFF KBD 

RETURN . . _ 

! Acquire LVDAS data at the current TCS8 traverse position. 

DISP "Press any key to TAKE DATA" 

CALL Rt_histo (gLvdas, Symbols (* ) ,1# KbdS) 

IF POS (KbdS, "Q") THEN RETURN 
Cmask=Coin (1) *l+Coin (2) *2+Coin (3) *4 
Nsam*MIN (Nreads, 1000) 

Date=TIMEDATE 

Time=Date .. . 

CALL Lvdas_take(0Lvdas,Atime,Ctime,At_exp,Ct_exp,Cmaak,Naam) 

IF Nsam>l THEN 

GOSUB Process data 

OUTPUT PRT USING " K, K" ; CHRS (27 ) 4" 4 k2S"4CHR$ (27 ) 4"4 19D" , RPT$ ( #1 

GOSUB Store_file 
Fi le=File+ 1*" 

END IF 

^Acquire LVDAS data at each of the pre programed TCS8 traverse poaltiona set up by M1X4. 

Qui t =0 

F0R CALL^TcsBread ( 9Tcs 8 , Tunl ( * ) . Tun2 ( * I , Modi ( * ) . Mod2 ( * ) , Tun2mod ( * ) , Mod2 1 un ( * ) ) 

Modi (Paxis) =Pos (J, 1) 

GOSUB Mlk5a 
GOSUB Mlk6 

IF POS (KbdS, *Q") THEN 2430 
NEXT J 

GOSUB On_key 

CALL Menu_disp (Menu, MenuS (*) ) 

<... ........ .< .... U- 

DISP "Press any key to return to main menu" 

CALL Rt_histo (@Lvdas, Symbols (*) , 1, KbdS) 

RET D«criptions of the "Laser Alignment Menu" subroutines M2K1^... AUgnment Me nu". The 

The eight subroutines M 2 K 1 M2K8 together i p ^ -Laser Allgnme nt Menu" is 

following will be displayed at the top left of the CRT display 

selected: 

M2K1: Return to main menu 
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2495 

2500 

2505 

2510 

2515 

2520 

2525 

2530 

2535 

2540 

2545 

2550 

2555 

2560 

2565 

2570 

2575 

2580 M2kl : 
2585 
2590 
2595 

2600 M2k2: 
2605 
2610 
2615 
2620 
2625 
2630 
2635 
2640 
2645 
2650 

2655 M2k3: 
2660 
2665 
2670 
2675 
2680 
2685 
2690 
2695 

2700 M2k4: 

2705 

2710 

2715 

2720 

2725 

2730 

2735 

2740 

2745 M2k5: 
2750 M2k6 : 
2755 M2k7 : 
2760 M2k8: 
2765 
2770 
2775 
2780 
2785 
2790 
2795 
2800 
2805 
2810 
2815 
2820 

2825 Menu3: 
2830 
2835 
2840 
2845 
2850 
2855 
2860 
2865 
2870 
2875 
2880 
2885 
2890 


M2K2: Sides : Tx & Rx 

M2K3: Coordinates: MODEL 

M2K4: Mode : ABSOLUTE 

M2K5: Move X 

M2K6 : Move Y 

M2K7: Move 2 

M2K8: Move A 

M2K1 will change the current active menu from the "Laser Alignment Menu" to the "Main Menu”. 

M2K2 selects whether the transmitting, receiving, or both sides of e 7 

M2K3 selects the TUNNEL or MODEL coordinate systems for traverse ™ent*. user 

movements to be relative to the currents position or to abso "as^he user enter 
enter a movement for the X axis and then the movemen s pe • enter a movement 

a movement for the Y axis and then the movement is P“^'the user enter a movement for the A 
for the 2 axis and then the movement is performed. M2K8 has the user 

axis and then the movement is performed. 

Change the current active menu from the "Laser Alignment Menu" to the “Main Menu". 

Menu=l 

CALL Menu_disp {Menu, Menu$ ( *) ) 

!™ct whether the transmitting, receiving, or both sides of the traverse are to be moved. 

SELECT TRIMS {MenuS (Menu, Key) [20)) 

CASE "Tx 6 Rx" 

MenuS (Menu , Key ) [ 20 ) “"Tx" 

CASE "Tx" 

MenuS (Menu, Key) [20|="Rx H 
CASE M Rx" 

MenuS (Menu, Key) [20] ="Tx i Rx" 

END SELECT 

CALL Menu_disp (Menu, MenuS {*) ) 

RETURN 

i selects the TUNNEL or MODEL coordinate systems for traverse movements. 

SELECT TRIMS (MenuS (Menu, Key) [20]) 

CASE "MODEL" 

MenuS (Menu, Key ) (20 I ="TUNNEL" 

CASE "TUNNEL" 

MenuS (Menu, Key ) [ 20 ) ="M0DEL" 

END SELECT 

CALL Menu_disp (Menu, MenuS (*) ) 

^Specifies movements to be relative to the currents position or to absolute positions. 

SELECT TRIMS (MenuS (Menu, Key) [20]) 

CASE "ABSOLUTE" 

MenuS ( Menu , Key ) [20 ] ^"RELATIVE" 

CASE "RELATIVE" 

MenuS (Menu, Key) [20 ) ="ABS0LUTE" 

END SELECT 

CALL Menu_disp (Menu, MenuS (*) ) 

RETURN “ The subroutines M2K5 thru M2K8 ail execute the same coda 

movement for the X.Y.2. or A depending on -hat the value of "Key is. The user sped 
for the selected axis will then be performed. 

Side$=TRIM$ (MenuS (Menu, 2) [20] ) 

Coor$ = TRIMS (MenuS (Menu, 3) [20] ) 

Mode$ = TRIM$ (MenuS (Menu, 4) [20] ) 

CALL Enter_value (ModeS 4" Movement ", Movement , "4D. 5D") 

ON KBD CALL Dojnothing 

CALL Tcs8read (fiTc*8,Tunl (*) ,Tun2 (*) .Modi (*) ,Mod2 (*) ,Tun2mod(M ,Mod2tun (*) ) CoorS;ModeS , Key-4. Movement) 

CALL Tcs8move(0TcsB,Tunl(*).Tun2(*l.Modl(*).Mod2(*).Tun2mod *.Mod2tun>. SideS, CoorS, Mo 

CALL Tcs8read { (?Tcs8, Tunl ( * ) , Tun2 ( * ) , Modi ( * ) , Mod2 (*) , Tun2mod ),Mod2tun( 

DISP "" 

OFF KBD 
RETURN 

Descriptions of the "Pre Run Menu" subroutines M3K1, . . . , M3K8: following will 

The eight subroutines M3K1 M3K8 together Implement the Pre Run Menu Tne I 

be displayed at the top left of the CRT display when the "Pre Run Menu is selecte . 

M3K1: Return to MAIN menu 
M3K2: Enter Run & File Numbers 
M3K3: Enter Number of Samples 
M3K4: Select Traverse Axis for Profile 
M3K5: Print Coordinate Transformation Matrices 
M3K6: Setup Graphics 
M3K7: Tunnel Conditions 
M3K8: Traverse 


M3K1 will change the current active menu from the "Pre Run Menu" to the “Main Menu" 


M3K2 has 
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2895 

2900 

2905 

2910 

2915 

2920 

2925 

2930 

2935 M3kl : 
2940 
2945 
2950 

2955 M3k2: 
2960 
2965 
2970 

2975 M3k3 : 

2980 

2985 

2990 M3k4 : 

2995 

3000 

3005 

3010 

3015 

3020 

3025 

3030 

3035 

3040 

3045 

3050 

3055 

3060 

3065 

3070 M3k5 : 

3075 

3080 

3085 

3090 

3095 

3100 

3105 

3110 

3115 

3120 

3125 M3k6: 

3130 

3135 

3140 M3k7: 
3145 
3150 
3155 

3160 M3k8: 
3165 
3170 
3175 

3180 Menu4: 

3185 

3190 

3195 

3200 

3205 

3210 

3215 

3220 

322 5 

3230 

3235 

3240 

3245 

3250 

3255 

3260 

3265 

3270 

3275 

3280 

3285 

3290 


the user enter 
while a new fil 


the Run and File numbers. A new run 


number should be assigned to each profile 
nuLrirL^nedTT^h set'of data . M3K3 has the user enter the desired 
^r-of-^ies. M3K4 has the user select which axis ^ ^nd ^oc^es. 

prints the coordinate syst *11 change the current active menu 

M3K8 will change the current active menu 


M3K6 creates a new set of empty plots for new profil 
from the "Pre Run Menu" to the "Tunnel Conditions Menu" 
from the "Pre Run Menu" to the "Traverse Menu". 

Change the current active menu from the "Pre Run Menu" to the "Main Menu". 

Menu=l 

CALL Menu_disp (Menu, MenuS {*) J 
RETURN 

t Have the user enter a the Run and File numbers. 

CALL Enter_value ("Run" , Run, M 3D .2D") 

CALL Enter_value ("File", File, "3D") 

RETURN _ . 

! Have the user enter the desired number of samples. 

CALL Enter_value ("Number of Samples ", Nreads, "K") 

RETURN 

! Have the user select which axis to traverse in for the profiles. 

CALL Enter_st ring ("Traverse Axis for Profile »,Paxls$, K ) 

SELECT PaxisS 
CASE "X" 

Paxi s=l 
CASE T 

Paxis=2 
CASE "2" 

Paxis=3 
CASE "A" 

Paxis=4 
CASE ELSE 

GOTO M3k4 
END SELECT 
GOSUB Fill 

RETURN , r l . u r do s It 1 oris and velocities. 

; Prints the coordinate system transformation matrices for both traverse positions 

GOSUB Read_calc_f i 1 1 

PRT USING "20x'k, /"("TRAVERSE COORDINATE TRANSFORMATION MATRICES" 

™ PRT USING "20x1 k! / r 3 (13X, 3 (8D. 5D) , /) "? "TUNNEL to MODEL" . Tun2mod • 

OUTPUT PRT USING "2 OX, K,/, 3(13X,3(8D.5D) ,/) "MODEL to TUNNEL" , Mod2tun 
OUTPUT PRT USING " 20X, K, /"; "VELOCITY COORDINATE TRANSFORMATION MATRICES 
O™ PRT USING "20X,K./,3<13X,3<8D.5D,./)»("TUNNEL to MODEL" . Tun2mod * 

OUTPUT PRT USING “ 20X, K, /, 3 (13X, 3 ( 8D . 5D) , /) " ; "MODEL to TUNNEL" , Mod2tun 
OUTPUT PRT USING "1,0" 

RETURN 

! Display a new set of plots for new profiles. 

CALL Set up_graph (Array (*), Image? (*) t Paxis, Symbols ( )) 

f Change the current active menu from the "Pre Run Menu" to the "Tunnel Conditions Menu". 

Menu=4 

CALL Menu_disp (Menu, Menu? ( * ) ) 

^Change the current active menu from the "Pre Run Menu" to the "Traverse Menu". 

Menu=5 

CALL Menu_disp (Menu, MenuS (*) ) 

RET D«criptions of the "Tunnel Conditions Menu" subroutines M4K1,....M4K8^ Condltlons Menu". The 

The eight subroutines M4K1. together implant the Tunnel Condi Menu . ls 

following will be displayed at the top left of the CRT display wnen tne 
selected: 

M4K1: Return to PRE RUN menu 
M4K2: Load Tunnel Conditions 
M4K3: Save Tunnel Conditions 
M4K4: Print Tunnel Conditions 
M4K5: Enter Tunnel Condition Data 
M4K6: Enter Tunnel Condition Names 
M4K7: Enter Tunnel Condition Units 
M4K8: Enter Tunnel Condition Images 

M4K1 will change the current active menu from the the current 

Menu". M4K2 loads the old load and save default tunnel conditions from 

tunnel conditions to a file on the dis . related to any particular run number, 

the file "ARRAY" on the hard disk. The default *•}“•«•»£ user enter values for the 

M4K4 sends the current tunnel conditions to the pr . ^ ^ tunne l condition variables. 

tunnel condition variables. M4K6 has t e user *" * variables M4K8 has the user enter Image 

M4K7 has the user enter units for the tunnel condition variables. M4KB nas 

formats for the tunnel condition variables. 
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6495 Menu: 

6500 Menu_read: 
6505 
6510 
6515 
6520 
6525 
6530 
6535 
6540 
6545 
6550 
6555 
6560 
6565 
6570 
6575 
6580 
6585 
6590 
6595 
6600 
6605 
6610 
6615 
6620 
6625 
6630 
6635 
6640 
6645 
6650 
6655 
6660 
6665 
6670 
6675 
6680 
6685 
6690 
6695 
6700 
6705 
6710 
6715 
6720 
6725 
6730 
6735 
6740 
6745 
6750 
6755 
6760 
6765 
6770 
6775 
6780 
6785 
6790 
6795 
6800 
6805 
6810 
6815 
6820 

6825 Menu_disp: 
6830 
6835 
6840 
6845 
6850 
6855 
6860 
6865 
6870 
6875 
6880 
6885 
6890 


!!!! £1 1!!!!!!!!!!!! i !! 

SUB Menu_read (Menu$ (*) ) 

DCSC Thl subprogram reads in the menu descriptors for each entry of the five menus. 
Variables: 

Menu Used as an index to the string array MenuS (*). 

Key Used as an index to the string array MenuS (*> - 

Menus (M String array where each element describes its corresponding menu subroutine s 
L$ String use to read in the menu descriptor from the data statements. 

OPTION BASE 1 
DIM LS (80] 

! Fill all of the menu entry‘s descriptions with "MxKx". 

FOR Menu=l TO SIZE (MenuS , 1 ) 

FOR Key=l TO 8 

MenuS (Menu, Key} ="M"£VAL$ (Menu) £ M K" 4VALS (Key) £" : " 

NEXT Key 

ON X ERROR U GOTO 6620 ! The following while loop will get error#36 when the data statements 

t for each menu and key, enter the menu entry's description. 

WHILE 1=1 
READ LS 

Menu=VAL (LS (2, 2] ) 

Key=VAL (LS [4, 4 | ) 

MenuS (Menu, Key) =L$ 

END WHILE 
SUBEXIT 


DATA * 

•M1K1: 

Laser 

Alignment" 

DATA 


"M2K1: 

Return to main menu" 

DATA 


-M2K2: 

Sides : Tx £ Rx" 

DATA 


"M2K3 : 

Coordinates: MODEL" 

DATA 


"M2K4 : 

Mode : ABSOLUTE" 

DATA 


"M2K5: 

Move X" 

DATA 


"M2K6 : 

Move Y" 

DATA 


-M2K7: 

Move 2" 

DATA 


"M2K8 : 

; Move A" 

DATA 

"M1K2: 

Pre Run" 

DATA 


"M3K1: 

Return to MAIN menu" 

DATA 


"M3K2 

Enter Run £ File Numbers" 

DATA 


"M3K3 

Enter Number of Samples" 

DATA 


-M3K4 

Select Traverse Axis for Profile" 

DATA 


"M3K5 

Print Coordinate Transformation Matrices 1 

DATA 


"M3K6 

Setup Graphics" 

DATA 


"M3K7 

Tunnel Conditions" 

DATA 



"M4K1: Return to PRE RUN menu" 

DATA 



"M4K2: Load Tunnel Conditions" 

DATA 



"M4K3: Save Tunnel Conditions" 

DATA 



"M4K4 : Print Tunnel Conditions" 

DATA 



"M4K5: Enter Tunnel Condition Data" 

DATA 



"M4K6: Enter Tunnel Condition Names" 

DATA 



"M4K7: Enter Tunnel Condition Units" 

DATA 



"M4K8: Enter Tunnel Condition Images" 

DATA 


"M3K8 

: Traverse" 

DATA 



"M5K1 : Return to PRE RUN menu" 

DATA 



"M5K2: View £ Set TCS8 Positions" 

DATA 



"M5K3: View £ Set TCS8 Units" 

DATA 



"M5K4: View £ Set TCS8 Revolution" 

DATA 



"M5K5: View £ Set TC58 Velocity" 

DATA 



"M5K6: View £ Set TCS8 Acceleration" 

DATA 



"M5K8: Recalc £ Replot" 

DATA 

-M1K3 

; Post 

Run (Dump Graphics)" 

DATA 

"M1K4 

; Set Auto Move Positions" 

DATA 

"M1K5 

Move 

traverse" 

DATA 

"M1K6 

Take 

data" 

DATA 

“M1K7 

Auto 

move and take" 

DATA 

"M1K8 

: Display Histograms" 


SUBEND 

SUB Menu_disp (Menu, MenuS (*) ) 

Description: 

This subprogram displays the current menu at the top of the CRl . 


Variables : 
Menu 
Key 


Used as an index to the string array MenuS <*). 
Used as an Index to the string array Menu$(*). 


Kev used as an inaex tne at ■ . . . 

Me n U S (*) String array where each element deacribes its corresponding menu subroutine 

COM /Color 1/ Clear, Black, Red, Ye 1 low f Green, Cyan, Blue, Magenta 
COM /Color2/ White, 01 ive, Aqua, Roya 1 , Maroon, Brick, Brown, Gray 
PRINTER IS CRT 


PRINT PEN Blue 
PRINT CHRS ( 128 ) ;CHR$ (129) ; 
IF Menu=0 THEN Menu=l 
FOR Key =1 TO 8 


Print the menu using blue text. 
Turn on inverse video. 


B-19 


// 

PRESSING PAGE BLANK 


f unct ion. 


run out. 


' s function. 


NOT FILMED 


6895 

6900 

6905 

6910 

6915 

6920 

6925 Menu_status : 

6930 

6935 

6940 

6945 

6950 

6955 

6960 

6965 

6970 

6975 

6980 

6985 

6990 

6995 

7000 

7005 

7010 

7015 

7020 Enter: 

7025 Enter_value: 

7030 

7035 

7040 

7045 

7050 

7055 

7060 

7065 

7070 

7075 

7080 

7085 

7090 

7095 

7100 

7105 

7110 

7115 

7120 Enter_st ring: 

7125 

7130 

7135 

7140 

7145 

7150 

7155 

7160 

7165 

7170 

7175 

7180 

7185 

7190 

7195 

7200 Array: 

7205 Ar ray_lnit : 

7210 

7215 

7220 

7225 

7230 

7235 

7240 

7245 

7250 

7255 

7260 

7265 

7270 

7275 

7280 

7285 

7290 


Menus (Menu, Key) -MenuS (Menu, Key) tRPTS ( * 50-LEN (MenuS (Menu, Key) ) ) 

PRINT TABXY (2, Key) ; MenuS (Menu, Key )t 3 } 

NEXT Key 

PRINT CHR$ (128 > ; ’* Turn off Inverse video 

PRINT PEN Black '• Set printing color to black. 

SUBEND 

SUB Menu_stat us (Menu, Key, Pen, MenuS (*) ) 

DeSC Thl» i subprogram displays the current menu selection in red or blue text. The red text 
style indicates that the subroutine for the current menu »e action is bujy. The bl' 
style Indicates that the subroutine for the current menu selection is has completed. 

Variables. Indicaces whlch o£ the menus has been selected as the current menu. 

Indicates which one of eight menu subroutines in the menu is to be execu . 
Indicates Busy/Ready Status. Busy: Pen-Red. Ready: Pen Blue. function 

: menus \ - . String array. Each element describes its corresponding menu subroutine 

COM /Color 1/ Clear, Black, Red, Yellow, Green, Cyan, Blue, Magenta 

COM /Color2/ White , 01 ive, Aqua, Roya 1, Maroon, Brick, Brown, Gray 
PRINT PEN Pen 
PRINTER IS CRT 
PRINT CHRS (128) ;CHRS (129) ; 

PRINT TABXY (2, Key) ; w M ;Menu$ (Menu, Key) [3] ;CHR$ (128) 

PRINT PEN Black 
WAIT .1 


Menu 
Key 
Pen 
Menu? ( * ) 


! Turn on inverse video. 

! Print menu selection t turn off inverse video. 
[ Set printing color to black. 


SUBEND 


i t t i i i t t i i t t 


t t t i i t i i i i 


t t t t t t t i » ♦ « i t M ! ! ! I ! ! ! 


t i t i i i i i ! 


t i i i t » » i r t » * j ! 


SUB Enter_value (NameS, Value, ImageS) 

D* SC Thi»* subprogram displays the current value of a variable and then has . the user new 

value. The old value will be kept if the RETURN key is pressed and no data is entered. 

Variables : 

NameS 
ImageS 
Value 

IF Name$="Date 
DISP CHRS (129) ; 

DISP USING 7080; NameS 
IMAGE # , "Old " , K, 

IF Image$<>"" THEN DISP USING ilmageS; Value 

IF Image$=" " THEN DISP USING "«,K";Value 
DISP USING 7100;Name$ 

IMAGE #," Enter new N ,K 

INPUT " ? ", Value 
DISP CHR$ (128) ; 

SUBEND 

SUB Enter_string (NameS, Value?, ImageS) 

^ e *°Thl s' subprogram displays the current value of a string variable and 

new value. The old value will be kept if the RETURN key is pressed and no data is entered. 

Variables: 

llTuU Cont a lns^the'^ initial * value and then the updated value for the string variable. 


Image°format V of 1 the e v»riable. Used for printing the variable with a format. 
Contains the initial value and then the updated value for the variable. 

OR Name$=”Time" THEN SUBEXIT 

! Turn on inverse video. 

! Display name and old value for the variable. 


The user enters the new value here. 
Turn off inverse video. 


DISP CHRS (129) ; 

DISP USING 7165;NameS 
IMAGE I, "Old " , K, "=" 

DISP USING "I , "t ImageS; ValueS 
DISP USING 7180;Name$ 

IMAGE #," Enter new ", K 

INPUT " ? ", ValueS 
DISP CHRS (128) ; 


Turn on inverse video. 

Display name and old value for the string. 


The user enters the new string value here. 
Turn off inverse video. 


SUBEND 

i l t i t M ! 


SUB Array_init (NameS (* ) .Array ( *) , ImageS (*) , UnitsS (*) ) 

DCSC Thi s' subprogram reads in default data for each of the variable's names values 
and units. These variables include, but ar. not limited to, the tunnel 

graph scales, traverse positions, and coordinate system transformation matrices. 


TlltltJllJtl 


t t i it t m t r i [ t m ; J ! 


t ( i i i i i i | ? j ? j ] n ! t ! ! * ! ! 


parameters 
Variables : 

Array (* ) 

NameS (* ) 

ImageS ( *) 

UnitsS ( *) 

X 
Y 

Before 
After 

ON ERROR GOTO 7365 
READ Y 

FOR X=1 TO SIZEtNameS, 2) 

READ NameS (Y,X) .Array (Y, X) , ImageS (Y.X) .UnitsS (Y.X) 


Array of tunnel conditions, laser parameters, graph scales, etc. 
Names for the variables in Array(*). 

Image formats for the variables in Array(M. 

Units for the variables in Array<*). 

Used as an index to the above arrays and string arrays. 

Used as an index to the above arrays and string arrays 
Number of digits before the decimal point in the image format. 
Number of digits after the decimal point in the image format. 
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7295 

7300 

7305 

7310 

7315 

7320 

7325 

7330 

7335 

7340 

7345 

7350 

7355 

7360 

7365 

7370 

7375 

7380 

7385 

7390 

7395 

7400 

7405 

7410 

7415 

7420 

7425 

7430 

7435 

7440 

7445 

7450 

7455 

7460 

7465 

7470 

7475 

7480 

7485 

7490 

7495 

7500 

7505 

7510 

7515 

7520 

7525 

7530 

7535 

7540 

7545 

7550 

7555 

7560 

7565 

7570 

7575 

7580 

7585 

7590 

7595 

7600 

7605 

7610 

7615 

7620 

7625 

7630 

7635 

7640 

7645 Array_print: 

7650 

7655 

7660 

7665 

7670 

7675 

7680 

7685 

7690 


****** 

Date 

Time 

Run 

File 

•**X=1********* 
. 0,0,-" , 

, 0,0,-- , 

, 0,2,-- , 

, 0,0,-- , 

******** 
Mach 
Re /Ft 
Uedge 
Uinf 

*X=2**** ** 

, 7.0,4,"" , 

, 0,0, /Ft, 

, 1 , 4 , m/ s , 

, 1,4, m/s, 

STemp 

TTemp 

Tt 

Tt (raw) 

A-J- 

0,0, °R , 
0,0, °R , 
0, 3 , mv , 
0 , 3, v , 

Tt Gain 
Alphal 
Alpha2 
Alpha3 

, 100,0,"" 
, 0,4,° 

, 0,4,° 

, 0,4,* 

* X s4* ****** 

Xtunl 
Ytunl 
Zt uni 
Atunl 

***X=1***»*** # * 

, 0,4, in , 
, 0,4, in , 
, 0,4, in , 
, 0,4, in , 

Xtun2 
Ytun2 
Zt un2 
Atun2 

*X=2**** **** * 
, 0,4, in , 

, 0,4, in , 

, 0, 4, in , 

, 0,4, in , 

Xmodl 

Ymodl 

Zmodl 

Amodl 

*X=3 

0, 4, in , 
0, 4 , in , 
0,4, in , 
0,4, in , 

Xmod2 

Ymod2 

Zmod2 

Amod2 

******** 

, 0,4, in 

, 0,4, in 

, 0,4, in 

, 0,4, in 

* x -4* **** ** 


SELECT ImageS (Y,X> 

CASE "0" 

ImageS (Y, X) =" 9 D" 

CASE "I" TO *7" 

Af ter*VAL ( ImageS (Y, X) ) 
Before=8-After 
ImageS <Y, X) =VAL$ {Before} t ' 
CASE "K" 

CASE "N" 

CASE ELSE 

ImageS (Y,X) ="9D" 

END SELECT 
NEXT X 
GOTO 7280 
SUBEXIT 
! Y 

DATA 1, 

DATA 2 , 

DATA 3 , 

DATA 4 , 

! Y 

DATA 11, 

DATA 12, 

DATA 13, 

DATA 14, 

! Y 

DATA 31, 

DATA 32, 

DATA 33, 

DATA 34, 

DATA 35, 

DATA 36, 

DATA 37, 

DATA 38, 

DATA 39, 

DATA 40, 

DATA 41, 

DATA 42, 

DATA 43, 

! Y 

DATA 51, 

DATA 52, 

DATA 53, 

! Y 

DATA 61, 

DATA 62, 

DATA 63, 

DATA 64, 

DATA 65, 

DATA 66, 

DATA 67, 

DATA 68, 

DATA 69, 

\ Y 

DATA 71, 

DATA 72, 

DATA 73, 

DATA 74, 

DATA 75, 

DATA 76, 

DATA 77, 

DATA 78, 

DATA 79, 

! Y 

DATA 81, 

DATA 82, 

DATA 83, 

DATA 84, 

DATA 85, 

SUBEND 

SUB Arrayprint (Array (*) , NameS (*} 


'D. "&VALS (After) 4"D" 


d******** 


UBeamSpc, . 3125, 3, in , 
UFoclLen, 30.00, 3, in , 
UBeamSep, 0.000, 3, 0 , 

UWaveLen, 514 .5, 3, nm , 
UFrngSpc, 00. 00, 3, urn , 
Ubrag , 40.00, 4, MHz, 
0.00, 4, MHz, 
- 1 , 0 ,— , 
+ 1 , 0 ,-- , 
- 1 , 0 ,-" , 
1 , 0 ,-- , 
8, 4, MHz, 
32, 4, MHz, 


VBeamSpc, .3125, 3, in 
VFoclLen, 30.00, 3, in 
VBeamSep, 0.000, 3, * 
VWaveLen, 488 .0, 3, nm 
VFrngSpc, 00.00, 3, um 


Umix , 
UmeaSgn , 
UbrgSgn , 
UmixSgn , 
U coin , 
UFreqMin, 
UFreqMax, 

Nreads 

Nsarn 


Xminl 

Xmin2 

Xmin3 

Xmin5 

XminS 

Xmin6 

Xmin7 

Xmin8 

Xmin9 

Xminl 

Xmin2 

Xmin3 

Xmin4 

Xmin5 

Xmin6 

Xmin7 

XminS 

Xmin9 

Xdivl 

Xdiv2 

Xdiv3 

Xdiv4 

Xdiv5 


Vbrag 

Vmix 

VmeaSgn 

VbrgSgn 

VmixSgn 

V coin 

VFreqMln 

VFreqMax 


40.00, 4, MHz, 
0.00, 4, MHz, 
+ 1 , 0 ,-" , 
-1,0,-" , 
+i,o,-- , 
, 1 , 0 ,-- , 

, 25, 4, MHz, 

, 55, 4, MHz, 


WBeamSpc, .3125, 3, in , 

WFoclLen, 30.00,3, in , 
WBeamSep, 0 . 000 , 3, 0 , 

WWaveLen, 476 . 5, 3, nm , 
WFrngSpc, 00.00, 3, um , 

Wbrag , 40 . 00 , 4 , MHz, 


WMix , 
WmeaSgn , 
WbrgSgn , 
WmixSgn , 
W coin , 
WFreqMin, 
WFreqMax, 


0.00, 4, MHz, 
+ 1 , 0 , "" , 
-1,0,-" , 
+1,0,-" , 
0,0,-- , 
-99, 4, MHz, 
99, 4, MHz, 


0 , 0 ," 
0 , 0 ," 
0 , 0 , " 
0 , 0 ," 
0 , 0 ," 
0 , 0 ,* 
0 , 0 , * 
0 , 0 , • 
0 , 0 , ' 
0 , 0 , ' 
0 , 0 , ' 
0 , 0 , 1 
0 , 0 , 1 


*X»4* 


*X=1 ********* 
, 1000,0,-- , 

At ime 

, 5,6,s , 

ATexp 

t 

12,0,-" , 

Paxis 

2,0, 

, 1000,0,-- , 

Ct lme 

, IE-2, 6, s , 

CTexp 


7,0,"" , 

Clip , 

1,0, 

o o - - 


, 0,0,"" , 

-* 


o,o,-- , 

Nose , 

139, 1, 





**X-3 


******** *) 

= 4 * * * * 

, 0.00,0,-- , 

Xmaxl 

,60.00,0,-" , 

Yminl 


0,0,"" , 

Ymaxl , 

100,0, 

0.00,0,"" , 

Xmax2 

,60.00,0,"" , 

Ymin2 

t 

o,o,-- , 

Ymax2 , 

100,0, 

, 0 . 00, o , , 

Xmax3 

,60.00,0,"" , 

Ymin3 

f 

o,o,-- , 

Ymax3 , 

100,0, 

, -5.00, 0, "" , 

Xmax5 

, 5.00,0,"" , 

Ymin5 

t 

o,o,-- , 

Ymax5 , 

1000,0, 

,-5.00,0,-- , 

Xmax5 

, 5.00,0,-" , 

YminS 


o,o,-- , 

Ymax5 , 

1000,0, 

,-0.50,1,"" , 

Xmax6 

, 1.50,1,"" , 

Ymin6 

, o. 

,00,2, , 

Ymax6 , 

4.00,2, 

,-5.00,0,"" , 

Xmax7 

, 5.00,0,"" , 

Ymin7 

, 0. 

,00,2,-" , 

Ymax7 , 

4.00,2 


Xmax8 

* 

t 

«— i 

o 

o 

o 

CM 

Ymin8 

, o. 

,00,2,-" , 

YmaxB , 

4.00,2 

, -1. 50, 1, "" , 

Xmax9 

. 1.50,1,"" s 

Ymin9 

, o. 

,00,2,-- , 

Ymax9 , 

4.00,2 

r » V_1 ********* 



***** ****X»4* * * * 


cm 


835 , 0 , pxl , 
835,0, pxl , 
835,0, pxl, 
835,0, pxl, 

835. 0, pxl, 
75,0, pxl, 

425.0, pxl, 

75.0, pxl, 
425,0, pxl, 

rX=1 ***..**** 

6 , 0 ,"" , 
6 , 0 ,-" , 
6 , 0 ,-" , 

10 . 0 , -" , 

10 , 0 ,"" , 


Xmaxl 

Xmax2 

Xmax3 

Xmax4 

Xmax5 

Xmax6 

Xmax7 

Xmax8 

Xmax9 


Ydivl 
Ydi v2 
Ydiv3 
Ydiv4 
Ydiv5 


1235,0, pxl, 

1235.0, pxl, 

1235.0, pxl. 

1235.0, pxl, 
1235,0, pxl, 

325. 0, pxl, 

675.0, pxl, 

325.0, pxl, 

675. 0, pxl, 
X*2* ******* * 

5,0,-" , 
5,0,-" , 

5.0, -" , 

5.0, "- , 

5.0, -" , 


Yminl 

Ymin2 

Ymin3 

Ymin4 

YminS 

Ymin6 

Ymin7 

Ymin8 

Ymin9 


Xdiv6 

Xdlv7 

Xdiv8 

Xdiv9 


725.0, pxl, 

585. 0, pxl, 

445. 0, pxl, 

305.0, pxl, 

165.0, pxl, 

525.0, pxl, 

525.0, pxl, 

165. 0, pxl, 
165, 0, pxl, 

(-3********* 

4.0, -" , 

10 , 0 ,-- , 

8.0, "" , 
6 , 0 ,-" , 
0 , 0 ,-- , 


Ymaxl 

Ymax2 

Ymax3 

Ymax4 

Ymax5 

Ymax6 

Ymax7 

YmaxS 

Ymax9 


Ydiv6 
Ydiv7 
Ydi v8 
Ydiv9 


825.0, 

685.0, 
r 545,0, 

405.0, 

265.0, 

825.0, 

825.0, 

465.0, 
465,0, 

*X=4***** < 
8 , 0 , ’ 
8 , 0 , ’ 
8 , 0 , ' 
8 , 0 , ' 
0 , 0 , ' 


pxl 

pxl 

pxl 

pxl 

pxl 

pxl 

pxl 

pxl 

pxl 


, ImageS (*} ,Unita$ (*> ) 


De * C Thi 5 ^ subprogram prints the values of each of the variables with their "am... image formats, and 
units. These variables Include, but are not limited to, the tunnel conditions, laser 


parameters, and graph scales. 

Array of tunnel conditions, laser parameters, graph scales, etc. 
Names for the variables in Array(*). 

Image formats for the variables in Array (*). 

Units for the variables in Array (*). 


Array (*) 
NameS < * ) 
ImageS ( * ) 
Uni tsS < * ) 
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7695 

7700 

7705 

7710 

7715 

7720 

7725 

7730 

7735 

7740 

7745 

7750 

7755 

7760 

7765 

7770 

7775 

7780 

7785 

7790 

7795 

7800 

7805 

7810 

7815 

7820 

7825 

7830 

7835 

7840 

7845 

7850 

7855 Change: 
7860 Change: 
7865 
7870 
7875 
7880 
7885 
7890 
7895 
7900 
7905 
7910 
7915 
7920 
7925 
7930 
7935 
7940 
7945 
7950 
7955 
7960 
7965 
7970 
7975 
7980 
7985 
7990 
7995 
8000 
8005 
8010 
8015 
8020 
8025 
8030 
8035 
8040 
8045 
8050 
8055 
8060 
8065 
8070 
8075 
8080 
8085 
8090 


i if the variable has no name, then print just blanks, 
i use a special printing format for printing the date. 


» X Used as in index to the above arrays and string arrays, 

j Y Used as in index to the above arrays and string arrays. 

PRINT USING “1,5/" 

FOR Y=1 TO SIZE (Array, 1) 

MAT SEARCH Array ( Y , * ) , #LOC (<>0 ) ; Ll 
MAT SEARCH NameS (Y, *) , ILOC {<>""); L2 
IF Ll+L2=0 AND L3=0 THEN 7845 
L3=L1+L2 

PRINT USING " # , 2 8 X " 

FOR X=1 TO SIZE (Array, 2) 

SELECT NameS (Y,X) 

CASE “ H 

PRINT USING M # , 28X" 

CASE "Date** 

LS=DATES (Array (Y,X) ) 

L$=L$(l,2UL$[4 f 6UL$[8,llJ 

PRINT USING -#,8A,A,9A.X,3A,6X“;TRIMS(NameS<Y,Xn,“- “, L$, UnitsS <Y,X> 

CASE -Time" ! Use a ®P eclal printing format for printing the time. 

L$ = “ “iTIMES (Array (Y, X) ) 

PRINT USING ”I,8A, A, 9A,X,3A,6X“;TRIMS (NameS <Y,X)>,“=’,LS, UnitsS (Y,X) 

CASE ELSE ! others use a standard format. 

IF ImageS (Y,X) ="" THEN ImageS (Y, X> =“9D" 

PRINT^USING T “f^8A^A, “4 Image? (Y, X) fc" , X, 3A, 6X"? TRIMS (NameS »X) ) # Array (Y, X) , UnitsS (Y, X) 
GOTO 7830 

PRINTING ”f , 8A, A. K, X, 3A, 6X“;TRIMS (NameS (Y,X) ) , Array (Y,X) , UnitsS (Y,X) 

END SELECT 
NEXT X 
PRINT 
NEXT Y 




SUB Change (TypeS, Array (*) , NameS (*) , ImageS ( * > , UnitsS ( *) ) 

the value of Types, he -ill be asked to enter a new value, name, image format, or units, 
exit the change variables mode press the “Escape- key. 

There are three types of data that are passed to the subprogram. The f ^»t type of da 
include but are not limited to, the tunnel conditions, lsser parameters, and graph scales. 

With this first type the user is allowed to enter new v.rl.bie value.,n.m...lm.,eform.ta,.nd 
units. The second type of data are the “Auto Move and Take” data. Tta... data are for the pre 
programed traverse positions used in a profile scan. The third type of data are 
Set TCS8 parameters- data acquired from and then sent back to the TLSB. 


Variables : 
Array (* ) 
NameS ( * ) 
Image$ ( * ) 
UnitsS <*) 
TypeS 


Array whose values, names, image formats, or units are to be modified. 

Names for the variables in Array(*>. 

Image formats for the variables in Array ( ) * 

Units for the variables in Array(*). 

Indicates which type of data is to be entered. . hl _ 

TypeS*" VALUES" has the user enter a new value for the selected variabl * 

Type$="NAMES" has the user enter a new name for the selected variable. 

TypeS*" IMAGES" has the user enter a new image format for the selected variable. 
Type$=“UNITS" has the user enter a new units for the selecte var a e. 

X, X1,X2 Used as in index to the above arrays and string arrays. 

Y, Y1,Y2 Used as in index to the above arrays and string arrays. 

GRAPHICS OFF ! Turn off the graphics contents of the CRT. 

PRINTER IS CRT ! Direct printed output to the CRT. 

FOR Y=1 TO SIZE (Array, 1) 

! Search Array**) for section containing variables. 

FOR Y1=Y TO SIZE(Array, 1) 

FOR X*1 TO SIZE (Array, 2) 

IF NameS (Yl, X) <>"" THEN 8055 

NEXT X 

CL EAR^ SCREEN ! If no more variable, are found In Array (*>. the Clear the CRT dlaplay and exit. 

SUBEXIT 

! Search Array (*) for section empty of variables. 

FOR Y2=Y1 TO SIZE (Array , 1 ) 

FOR X=1 TO SIZE (Array, 2) 

IF NameS (Y2,X)<>"" THEN 8085 
NEXT X 
GOTO 8090 
NEXT Y2 

! Find the length of the following empty section. 
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8095 

8100 

8105 

8110 

8115 

8120 

8125 

8130 

8135 

8140 

8145 

8150 

8155 

8160 Wait: 
8165 
8170 
8175 
8180 
8185 
8190 

8195 Kbd: 

8200 

8205 

8210 

8215 Display: 
8220 
8225 
8230 
8235 
8240 
8245 
8250 
8255 
8260 
8265 
8270 
8275 
8280 
8285 
8290 
8295 
8300 
8305 
8310 
8315 
8320 
8325 

8330 Select: 

8335 

8340 

8345 

8350 

8355 

8360 

8365 

8370 

8375 

8380 

8385 

8390 

8395 

8400 

8405 

8410 

8415 

8420 

8425 

8430 

8435 

8440 

8445 

8450 

8455 

8460 

8465 

8470 

8475 

8480 

8485 

8490 


FOR Y2=Y2 TO SIZE (Array, 1) 

FOR X=1 TO SIZE (Array, 2) 

IF Name$(Y2,X)<>"" THEN 8120 
NEXT X 
NEXT Y2 

Cl ear the CRT and then display the section contain variables and the following empty section. 
CLEAR SCREEN 

CALL Display (TypeS, Yl,Y2, Array (*) , NameS (*) , ImageS (*) ,Units$ (*) ) 

Done=0 
X = 1 
Y=Y1 

ON KBD ALL, 15 GOSUB Kbd 

IF NOT Done THEN Wait ! The program will wait hear until 

OFF KBD 
CLEAR SCREEN 
Y=Y2 
NEXT Y 

GRAPHICS ON ! Turn the graphic part of the CRT back on. 

SUBEXI T 

! This subroutine will be called when one of the cursor, select, etc. keys is pressed. 

CALL Update (TypeS, X,Y, Y1,Y2, Done, Array <*} ,NameS<*) ,Image$(*) ,Units$ (*) ) 

RETURN 

SUBEND 

SUB Display (TypeS, Yl, Y2, Array (*) , NameS (*> , ImageS (*) , UnitsS (*) > 

DeSC This i subprogram displays on the CRT the values of each of variables with their names, image 


key is pressed on the keyboard. 


formats, and units. 

Variables : 

Array (*) 

NameS (* ) 

ImageS ( *) 

UnitsS (*) 

TypeS 


or units are to be modified. 


Array whose values, names, image formats 
Names for the variables In Array<*). 

Image formats for the variables in Array (*) • 

Units for the variables in Array(*). 

Indicates which type of data is to be entered. 

Type $=" VALUES" has the user enter a new value for the selected variable. 

TypeS*" NAMES" has the user enter a new name for the selected variable. 

TypeS*" IMAGES" has the user enter a new image format for the selected var 
Type$=“UNITS" has the user enter a new units for the selected variable. 

Used as in index to the above arrays and string arrays. 

Used as in index to the above arrays and string arrays. 


iable . 


X, XI, X2 

Y, Yl, Y2 
FOR Y=Y1 TO Y2 

FOR X*1 TO SIZE (Array , 2) 

CALL Select (TypeS, X, Y, Yl , Y2 , 0, Array <* ) ,Name$(*) ,Image$<*> , UnitsS ( ) ) 

NEXT X 
NEXT Y 

CALL Select (TypeS, 1 , Yl , Yl , Y2, 1 , Array (*) , NameS (*) , ImageS {* ) , UnitsS < > ) 

SUBEND 

SUB Select (TypeS, X, Y, Yl, Y2 , C, Array (* ) , NameS (*) , ImageS (*) , UnitsS (*) > 

DeSC Thi»subprogr«l» displays on the CRT the value of one variable along with its names, image 
format, and units. 

Variables: . . 

Array whose values, names, image formats, or units are to be modified. 

Names for the variables in Array <*) 

Image formats for the variables in Array (*) 

Units for the variables in Array**) 

Indicates which type of data are to be entered. 

TypeS="VALUES" has the user enter a new value for the selected variable. 

Type S=" NAMES" has the user enter a new name for the selected variable. 

TypeS*" IMAGES" has the user enter a new image format for the selected variab e. 

Type$»"UNITS" has the user enter a new units for the selected variable. 

Used as in index to the above arrays and string arrays. 

Used as in index to the above arrays and string arrays. 

! if O0 then normal. If C=1 then inverse video. 


Array ( * ) 
NameS <*) 
ImageS ( *) 
UnitsS (*) 
TypeS 


X 

Y, Yl , Y2 
PRINT CHRS ( 128+C) 


TABXY (26*X-24, 15+Y-Y1+1) ; 

PRINT RPTS ( " ", 23) ; TABXY (26*X-24, 15+Y-Y1+1 ) ; 

IF NameS (Y, X) =*" AND Array (Y,X)=0 THEN 8520 
Img$=ImageS (Y, X) 

Unt$=UnitsS(Y,X) 

IF ImageS (Y, X) ="" THEN ImgS* 

IF UnitsS ( Y, X) = " 

SELECT TypeS 
CASE "VALUES" 

SELECT NameS <Y,X) 

CASE "Date" 

CASE "Time" 

CASE ELSE 

PRINT USING "I , 10A, A, "ilmgSt", X, 3A"; NameS (Y,X) ,“:",Array(Y,X) ,UntS 
END SELECT 

CASE "NAMES" ! If TypeS* "NAMES" then display the variable *s name. 

PRINT USING " # , 10A, A, 8 A"; NameS ( Y, X) , " : " » NameS ( Y, X) 


"K" 

THEN Unt $=" 

If TypeS =" VALUES" 


then display the variable's value. 
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8495 

8500 

8505 

8510 

8515 

8520 

8525 

8530 Update: 
8535 
8540 
8545 
8550 
8555 
8560 
8565 
8570 
8575 
8580 
8585 
8590 
8595 
8600 
8605 
8610 
8615 
8620 
8625 
8630 
8635 
8640 
8645 
8650 
8655 
8660 
8665 
8670 
8675 
8680 
8685 
8690 
8695 
8700 
8705 
8710 
8715 
8720 
8725 
8730 
8735 
8740 
8745 
8750 
8755 
8760 
8765 
8770 
8775 
8780 
8785 
8790 
8795 
8800 
8805 
8810 
8815 
8820 
8825 
8830 
8835 
8840 
8845 
8850 
8855 
8860 
8865 
8870 
8875 
6880 
8885 
8890 


CASE "UNITS" 


Turn off inverse video printing. 


> if Type$="UNITS" then display the variable's units. 

PRINT USING "I , 10A, A, 8 A"; NameS (Y,X) , " : UnitsS (Y,X) 

CASE " IMAGES" ! If TypeS =" IMAGES" then display the variable's image format 

PRINT USING "f , 10A, A, BA" ; NameS ( Y, X) ImageS ( Y, X) 

END SELECT 
PRINT CHRS (128) ; 

SUBEND ( 

SUB Update (TypeS, X, Y, Yl , Y2 , Done, Array ( * ) , NameS (*) , Image$(*) ,Units$( ) ) 

De S c rlptioru scr olls through the variables displayed on the CRT and has the user ««« 

updated values. The user can select one of the variables and enter a new value narse, image 
format, or units. The user selects the particular variable by using the left right, up, down 
cursor keys. This subprogram will only have been called after a keyboard key has been Passed. 
If a cursor key has been pressed then the previously selected variable will be redisplaye 
normal text and the new selected variable will appear in inverse video text When the user has 
selected the appropriate variable he will have pressed the -Select- key on ^ekeyboardThen. 
depending on the value of the TypeS he will be asked to enter a new value, name, image format, 
or units. To exit the change variables mode the user will have pressed the 


"Escape" key. 


Variables : 

Array ( * ) 
NameS ( * ) 
ImageS (*) 
UnitsS (*) 
TypeS 


graph scales, etc. 


Array of tunnel conditions, laser parameters 
Names for the variables in Array(M. 

Image formats for the variables in Array(*). 

Units for the variables in Array(*). 

Indicates which type of data is to be entered. 

TypeS *" VALUES" has the user enter a new value for the selected variable. 

Type$="NAMES" has the user enter 
TypeS=" IMAGES" has the user enter 


new name for the selected variable, 
new image format for the selected variable. 


ESC key pressed. 


Break or Stop key pressed. 


! Menu 


Type$=" UNITS" has the user enter a new units for the selected variable. 
X Used as in index to the above arrays and string arrays. 

Y,Y1,Y2 Used as in index to the above arrays and string arrays. 

DISABLE ! Disable the keyboard. 

K$=KBD$ ! Get the key pressed from the keyboards buffer. 

IF K$=" " THEN 8885 
SELECT NUM (K$ (1, 1 ] ) 

CASE 27 

Done=l 

CASE 255 . . . . 

CALL Select (TypeS, X, Y, Y1 , Y2 , 0, Array <* ) , NameS <M , ImageS (*) » UnitsS < ) ) 

SELECT NUM (KS [2, 2) ) 

CASE 73,80 
PAUSE 
CASE 124 

Done=l ... i 

CASE 38 ■ S.l.ct key pre.s.d, 

CALL Select(TypeS,X, Y, Yl , Y2, 1 , Array (* ) , NameS <*>, ImageS (* ) ,UnitsS< ) > 

SELECT TypeS 
CASE "VALUES" 

IF NameS (Y,X)="" THEN CALL Enter_st ring ("Name for " 4 NameS <Y, X) , NameS (Y,X), "K") 

IF ImageS (Y,X) ="" THEN CALL Enter_stri ng (" Image for "SNameS (Y, X) , ImageS (Y, X) , K 
CALL Enter_val ue (NameS (Y, X) ,Array(Y,X) , ImageS (Y,X> ) 

CASE "NAMES" 

CALL Enter_str ing ( "Name for "&Name$ (Y, X) , NameS (Y,X) , "K") 

CASE "UNITS" 

CALL Enter_str ing ( "Units for " iNameS (Y, X) , UnitsS (Y, X) , "K") 

CASE "IMAGES" 

CALL Enter_string ( "Image for "4Name$ (Y, X) , ImageS (Y, X) ," K" ) 

END SELECT 

CALL Select (TypeS, X, Y, Yl , Y2 , 0, Array <* ) ,Name$(*) ,Image$<*> ,Units$( ) ) 

IF X=SIZE (Array, 2) THEN Y=Y+1 
X=X + 1 


CASE 60 
X=X-1 
CASE 62 
X = X+1 
CASE 94 
Y-Y-l 
CASE 8 6 
Y=Y+1 
CASE 92 
X=1 
Y=1 

END SELECT 

X= (X-l ) MOD SIZE(Array,2)+l 
Y= ( Y-Yl + 1-1 ) MOD (Y2-Y1+1)+Y1 
IF X<1 THEN X=SIZE (Array, 2) 

IF Y<Y1 THEN Y=Y2 M , 

CALL Select (TypeS, X, Y, Yl, Y2, 1 , Array (* ) , NameS (*) , ImageS (*) ,Units$( ) ) 

END SELECT 

ENABLE 

SUBEXIT 


Left key pressed. 
Right key pressed. 
Up key pressed. 
Down key pressed. 
First key pressed. 
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8895 

SUBEND 

8900 Misc: 


8905 Convert2words: 

SUB Convert2words { Real , INTEGER High,] 

8910 

! Description: 

8915 

! This subprogram converts i 

8920 

I real precision variables 

8925 

! low 16 bit integers. The 

8930 

! least significant 16 bits 

8935 

! subprogram is to provide - 

8940 

! speed interface. 

8945 

! Variables: 

8950 

! Real Initial real preci 

8955 

! Hex$ Hex value of "Real 

8960 

! High Most significant 

8965 

! Low Least significant 

8970 

Hex$=DVAL$ (Real, 16) 

8975 

High=IVAL (HexS [1,4 ) ,16) 

8960 

Low=IVAL (Hex$ (5,8] , 16) 

8985 

SUBEND 

8990 Error: 

SUB Error 

8995 

! Description: 

9000 

! This subprogram will prin 

9005 

J will be displayed at the 

9010 

! might occur when data to 

9015 

! generate a displayed and 

9020 

BEEP 

902 5 

DISP ERRMS 


t i t i i it i i i i i i !•!!!!.!!!!!!!! ! 


The initial 


n vaiue v q.l v. . 

String length will be 8 bytes for 32 bits. 


9030 

9035 

9040 

9045 

9050 

9055 

9060 

9065 Scale: 

9070 

9075 

9080 

9085 

9090 

9095 

9100 

9105 

9110 Table: 

9115 Table: 

9120 

9125 

9130 

9135 

9140 

9145 

9150 

9155 

9160 

9165 

9170 

9175 

9180 

9185 

9190 

9195 

9200 

9205 

9210 

9215 

9220 

9225 

9230 

9235 

9240 

9245 

9250 

9255 

9260 

9265 

9270 

9275 

9280 

9285 

9290 


ccurs. The error message 
s paper. Such errors 
Other errors will also 


OUTPUT PRT; ERRMS 

Prt=VAL (SYSTEMS {"PRINTER IS")) 

PRINTER IS CRT 
PRINT TABXY (95,1); ERRMS 
PRINTER IS Prt 
ERROR SUBEXIT 
SUBEND 
SUB Scale ( G) 

DeSC This 1 3 ubprogram selects one of nine histogram or profile plots. The plot's area of the CRT Is 
selected and scaled to the appropriate scales. 

OPTION BASE 1 , _ , 

COM /Graphl/ Wndw ( * > , Vwprt ( *) , Xdiv ( * ) , Ydiv (*) , XlabelS ( *) , YlabelS ( ) 

VIEWPORT Vwprt <G, 1) /I 0.23, Vwprt (G, 2) /I 0.23, Vwprt (G, 3) / 10 .23, Vwprt (G, 4) /I . 

WINDOW Wndw (G, 1) ,Wndw(G,2) ,Wndw(G, 3) ,Wndw(G, 4) 

SUBEND 


iiiiiiiiiii 


i r i t t 1 i t t i 


t I I 1 t M t t 1 I 1 I 


SUB Table (Table ( * ) ) 

D * SC This 1 subprogram Is used to create a lookup table array. The lookup table array facilitates 
the rapid conversion of raw encoded Macrodyne data into a usable frequency. °^ e t e a e 
has been filled, then the raw Macrodyne data can be used as an index to the table array. 

Variables: 

Lookup table of frequencies. 

> The 10 bit mantissa part of the raw Macrodyne data (0..1023). 

The 1 bit Fringe Count part of the raw Macrodyne data (0:16, 1:8 fringes). 

The 4 bit Exponent part of the raw Macrodyne data. 

An array of measurement times for a given number of Fringes and Exponent. 

An array of measured frequencies for a given number of Fringes and Exponent. 
Used to index Mantissa<*). 

Used as a subrange index for Tablet*). 

Used as a subrange index for Table (*) . 


Table ( * ) 
Mantissa (* 
Fringes 
Exponent 
Time ( *) 
Freq (* ) 

Bin 

Min 

Max 


Fill Mantissa array. 


OPTION BASE 1 

REAL Mantissa (0:1023) , Time (0:1023) , Freq(0: 1023) 

! If the last entry in the table in not zero then the table has already been created. 
IF Table (32766) THEN SUBEXIT 
FOR Bin=0 TO 1023 

Mantissa (Bin) *Bin 
NEXT Bin 
Mantissa (0 ) -l 
Mi n=0 

FOR Fr inges=Q TO 1 

FOR Exponent =0 TO 15 
Max=Min+1023 
IF Max=32767 THEN 
Max=32766 

REDIM Mantissa (0:1022) , Time (0 : 1022) , Freq (0 : 1022) 

END IF 

DISP Fringes, Exponent 

MAT Time= Mantissa* (2 A (Exponent-1) /500000000) 

•MAT Time= Mant issa * (2 A (Exponent-3) /500000000) 

MAT Freq = (2* ( 4-Fringes) ) /Time 
MAT Fr eq= Freq/ (1000000) 


indicates 16 fringes while 1 indicates 8 fringes. 


Maximum size of an array is 32766. 


Use this line with new macrodynes. 
Use this line with old macrodynes. 
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9295 
9300 
9305 
9310 
9315 

9320 Lvdas : 

9325 Lvdas_inlt: 

9330 

9335 

9340 

9345 

9350 

9355 

9360 

9365 

9370 

9375 

9380 

9385 

9390 

9395 

9400 

9405 

9410 

9415 Lvdas_take: 

9420 

9425 

9430 

9435 

9440 

9445 

9450 

9455 

9460 

9465 

9470 

9475 

9480 

9485 

9490 

9495 

9500 

9505 

9510 

9515 

9520 

9525 

9530 

9535 

9540 

9545 

9550 

9555 

9560 

9565 

9570 

9575 

9580 

9585 Lvdas_sample : 

9590 

9595 

9600 

9605 

9610 

9615 

9620 

9625 

9630 

9635 

9640 

9645 

9650 

9655 

9660 

9665 

9670 

9675 

9680 

9685 

9690 


MAT Table (Min : Max) J 
Mi n=Min+1024 
NEXT Exponent 
NEXT Fringes 


Freq 


r t i r i t t r r t t i i r t m i m 


i i i t i i i r t t t i ] 


t i i i t i i t r t t i r i » ; ] 


Bit 1=0 
Bit 4=0 

Bit0=0 

Bit3=l 

Bit2-1 

Bit 1=0 

Bit 0=0 


RDY =1 
RDY =1 
DOUT=0 

BSY =0 
BSY =0 
DIN =0 

RD =1 
RD =1 
HSHK=1 

PSTS=0 

PFLG=0 

PCTL=1 


SUBEND 

j i | m | j i ; | i ! t r t 

SUB Lvdas_init (0Gpio) 

Description: . HP98622-66501 Rev B 16-bit General Purpose 

mput h Output P ^GPIOr interface. The subprogram also opens the LVDAS path on f ^ferre^ 

•z—t :rr;™r:!n..r - - - 

from LVDAS will use the "ENTER 0Lvdas statement. , 

trom LvuAi win u initialized to perform unformatted word 

The I/O path has a select code of 12 and Is initialized <-« p udooco 9-66501 Rev B 

transfers without any end of line designations. The DIP switches on the HP98622 66501 

printed circuit board need to be set as shown below- 
DIP switches for INT LVL : 

DIP switches for Select Code : 

DIP switches for DI15to08 elk: 

DIP switches for DI07to00 elk: 

DIP switches for Hndsk Levels: 

ASSIGN QGpio TO 12 ; WORD, FORMAT OFF, EOL 
OUTPUT 0Gpio USING "l,AA";"HP" 

SUBEND , .. , 

SUB Lvdas_take<0Lvdas, Atime.Ctime. INTEGER At_exp, Ct_exp, Cmask. Nsam) 

DeSC Thl s' subprogram samples the two analog, three digital, and two external trigger channel. 

srsss rsvr,;,:: atss xzzz ss SS.S-* r- — • 

before the desired Nsam samples are realized. 

Variables : 

At ime 
Ct ime 
At 1 
At 2 
Ctl 
Ct2 

At_exp 
Ct_exp 
Nsam 
Cmask 
Raw (*) 

OPTION BASE 1 

COM /Datal/ REAL Table (*), INTEGER Raw ( *) , Valid (*) 

INTEGER At 1 , At 2 , Ct 1 , Ct 2 
DISP "Taking Data" 

CALL Con vert 2 words (At ime* 10000 00 0, At 1, At 2) 

CALL Convert2words (Ct ime *10000000, Ctl , Ct2 ) N .. m 

OUTPUT 0Lvdas USING "AA, 8 ( W) - ; "CS" , At 1 , At2 , Ct 1 , Ct2 , At_exp, Ct_exp, Cmask, Nsam 

ENTER 0Lvdas USING "l,W";Nsam 
IF Nsam=0 THEN SUBEXIT 
REDIM Raw(l:Nsam, 1:10) 

ENTER 8Lvdas USING "#,W";Raw(*) 

SUB E Lvdas_sampie(0Lvdas, Channel, Tabled, REAL Vave,Vsdv,Tave,Tsdv) 

....... 

rT > »- ■ 

prevents the LVDAS front panel displays from being updated but It a so * „ sc » tell3 che 

sampling will occur uninterrupted and at a maximum data rate. The sample channel SC tells 
LVDAS to sample the specified channel and return 1000 data . ET . 

also returned. The read memory -RM" command reads back the data. The enable timer 
command enables the LVDAS • s internal timer Interrupts so th.t the front panel 


The maximum desired acquisition time (seconds) . 
The maximum desired coincidence time (seconds). 
The upper word of integer of 10000000*Atime. 

The lower word of integer of 10000000*At ime . 

The upper word of integer of 10000000*Ct ime . 

The lower word of integer of 10000000*Ct ime . 

Exponent for inter-arrival times. 

Exponent for coincidence times. 

Number of desired samples. 

Coincidence Mask for U,V,W selection. 

Array of raw data acquired LVDAS data. 


updated . 
Variables : 
Channel 


Data (*) 


Specifies one of the two analog, three digital, or two external trigger channels. 
Channel=0: Specifies the U digital channel. 

Channel=l : Specifies the V digital channel. 

Channel=2 : Specifies the W digital channel. 

Channel=3: Specifies the A analog channel. 

Channel=4: Specifies the B analog channel. 

Channel=5: Specifies the External Trigger Timer channel. 

Channel-6: Specifies the Inter-arrival Timer channel 

Array of raw analog or digital data with inter-arrival time data. 

Data(*,l) Upper word of inter-arrival time data. 
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9695 

9700 

9705 

9710 

9715 

9720 

9725 

9730 

9735 

9740 

9745 

9750 

9755 

9760 

9765 

9770 

9775 

9780 

9785 

9790 

9795 

9800 

9805 

9810 

9815 

9820 

9825 

9830 

9835 

9840 

9845 

9850 

9855 

9860 

9865 

9870 

9875 

9880 

9885 

9890 

9895 

9900 

9905 

9910 

9915 

9920 

9925 

9930 Data: 

9935 Data_reducel: 
9940 
994 5 
9950 
9955 
9960 
9965 
9970 
9975 
9980 
9985 
9990 
9995 
10000 
10005 
10010 
10015 
10020 
10025 
10030 
10035 
10040 
10045 
10050 
10055 
10060 
10065 
10070 
10075 
10080 
10085 
10090 


Data ( * , 2 ) Lower word of inter-arrival time data. 

Data ( * , 3 ) Channel number for the data sampled. 

Data ( * , 4 ) Data of the channel sampled. 

Array of data for the channel sampled. 

W(*> Squares of the V data array. 

T(*) Array of inter-arrival times for the channel sampled. 

Tt ( *) Squares of the T inter-arrival time array. 

Vave Average value of the channel's data. 

Vsdv Standard deviation of the channel's data. 

Tave Average value of the channel’s Inter-arrival time data. 

Tsdv Standard deviation of the channel’s inter-arrival time data. 

OPTION BASE 1 

INTEGER Data (1000, 4 ) , V ( 1000) , Vv ( 1000) , T(100Q) , Tt (1000) 

OUTPUT ULvdas USING ** # , AA" ; " DT " n tn 6 

OUTPUT @Lvdas USING " I , AA, W" ; " SC M , Channel + 1 ! LVDAS expects to see , 

OUTPUT PLvdas USING "AA , *; H RM" 

OUTPUT 8Lvdas USING "W, W"; IVAL ("08F0", 16) , IVAL C 0000", 16) 

OUTPUT @Lvdas USING “W, W M ; IVAL (**08FO" , 16) , IVAL ( "1F3F" , 16) 

ENTER PLvdas USING " » , W* ; Data ( * ) 

OUTPUT SLvdas USING "#,AA";"ET" 

N=SIZE (Data, 1) 

Channel=Data (1,3) 

SELECT Channel , 

CASE Q tlt2 ! Convert raw digital data to frequencies. 

FOR 1*1 TO N 

V (I) =Table (BINAND ( 32767, BINCMP (Data (I# 4) ) ) ) 

NEXT I 

CASE 3,4 1 Convert raw analog data to voltages. 

MAT V= Data {*, 4) 

MAT V= V* (5/32768) 

CASE 5,6 

MAT V= (0) 

END SELECT 
MAT Vv= V . V 
MAT T= Data ( * , 2) 

MAT T* T/ (10000000) 

MAT Tt = T . T 
Vave=SUM (V) /N 
Tave=SUM (T) /N 

Vsdv=SQR ( ABS ( SUM (Vv) /N-Vave*Vave) > 

Tsdv=SQR (ABS { SUM (Tt ) /N -Tave* Tave) ) 

MAT SEARCH Dat a ( * , 1 ) , # LOC ( <>0) ; Badl 
MAT SEARCH Dat a < * , 2) , ILOC ( <0) ; Bad2 
SUBEXIT 

PRINT USING 9920;Channel, Vave, Vsdv, Tave, Tsdv, Badl, Bad2 

IMAGE 4D,2 (MBD.4D) ,2 (M2D.6D) , 10X,2 (5D) 


The external trigger channels have no data. 


SUBEND 

lilt!!!!!!!!!! 


i i i i i t i i i t i » t * ; ; 


i t m i i m i m !!!!!!!!!!!!!!!!!! ! 


t t t i i t t » i i i t j i j | t 


i t t t t i t t t i i 


Data_reducel (INTEGER At_exp, Ct _exp, Nsam) 

Description^ operates the ten by Nsam R.«<*> data array Into multipl. °ne by Nsam 

arrays The frequency arrays Ui,Vi,Wi are extracted from columns 6,7,8 of the Raw data array. 
The voltage arrays Ai i Bi are extracted from columns 9 t 10 of the Raw data array. coincidence 
inter-arrival time array li is extracted from column 1 of the Raw data array. 
ull\YrTc\ U“*t»ct.d from column 2 of the Raw dat. array. The v.lid.t on word array 
Valid is extracted from column 5 of the Raw data array. If l’th sample acquired cont 
valid data, then Valld(i) will be equal to one. and zero otherwise. All values for the Valid 

arrav are initially set to one by the LVDAS . . . , 4 „ 4 , s 

The raw data £tom arrays Ui.Vi.Wi are converted into frequencies by using their initial 
The raw aat 1 y , . . rrav Table(*). The raw data from arrays 

values as indexes to the frequency look up table array lame* j. _ v . r 2 MS 

Ai Bi are converted into voltages by multiplying their initial values by 5 volts over 2 15 
The raw data from array li are converted into inter-arrival times by multiplying their initial 
values by 2‘At_exp over 10 to get us. The raw data from array Cl are lnt ° 

coincidence times by multiplying their initial values by 2 Ct_exp over 10 to get . 


Variables : 

Table ( * ) 

Raw (*) 

Ui <*) 

Vi (*) 

Wi (*) 

Ai < *> 

Bi ( * ) 

IK*) 

Ci (M 

Valid ( * ) 

At_exp 
Ct_exp 
Nsam 
OPTION BASE 1 

COM /Datal / REAL Table (*) , INTEGER Raw <*), Valid <* ) 


Lookup table of frequencies. 

Array of raw data acquired LVDAS data. 

Array of extracted raw U frequency data. 

Array of extracted raw V frequency data. 

Array of extracted raw W frequency data. 

Array of extracted raw A voltage data. 

Array of extracted raw B voltage data. 

Array of extracted raw inter-arrival time data. 
Array of extracted raw coincidence time data. 
Array of extracted raw validation words. 
Exponent of inter-arrival times. 

Exponent of coincidence times. 

Number of samples acquired. 
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10095 

10100 

10105 

10110 

10115 

10120 

10125 

10130 

10135 

10140 

10145 

10150 

10155 

10160 

10165 

10170 

10175 

101 BO 
10185 
10190 
10195 

10200 Data_reduce2: 
10205 
10210 
10215 
10220 
10225 
10230 
10235 
10240 
10245 
10250 
10255 
10260 

102 65 
10270 
10275 
10280 
10285 
10290 
10295 
10300 
10305 
10310 
10315 
10320 
10325 
10330 
10335 
10340 
10345 
10350 
10355 
10360 
10365 
10370 
10375 
10380 
10385 
10390 
10395 

- 10400 

10405 Data_reduce3: 

10410 

10415 

10420 

10425 

10430 

10435 

10440 

10445 

10450 

10455 

10460 

10465 

10470 

10475 

10480 

10485 

10490 


COM /Data2/ REAL Ui (*) , VI ( * ) , Wi ( *) , Ai ( *) , BI (* I , H < * > . Cl (*) 

REDIM Ui (Nsam) , VI (Nsam) , Wi (Nsam) , Ai (Nsam) , Bi (Nsam) , Ii (Nsam) ,Ci (Naam) .Valid (Nsam) 


DISP “Reducing Data" 
MAT Valid* Raw<*,5> 
MAT Ii= Raw ( * , 1 ) 

MAT Ci = Ra w ( * , 2) 


Extract the inter-arrival times from the raw data array. 

Extract the coincidence times from the raw data array. 

Extract the instantaneous U velocities from the raw data array. 

Extract the instantaneous V velocities from the raw data array. 

Extract the instantaneous W velocities from the raw data array. 

Extract the instantaneous A analog voltages from the raw data array. 

Extract the instantaneous B analog voltages from the raw data array. 

The raw data of Ui is used to index the frequency lookup table. 

The raw data of Vi is used to index the frequency lookup table. 

The raw data of Wi is used to index the frequency lookup table. 

The raw data for Ai is converted into a voltage <+/“ 5 volts). 

The raw data for Bi is converted Into a voltage (+/- 5 volts) . 

The raw data for Ii is converted into the inter-arrival time. 

The raw data for Ci is converted into the coincidence time. 


MAT Ui = Raw ( * , 6) 

MAT Vi = Raw ( * , 7) 

MAT Wi = Raw < * , 8) 

MAT Ai = Raw < * , 9) 

MAT B i = Raw { * , 10) 

FOR K=1 TO Nsam 

Ui (K) =Table (Ui <K) ) 

Vi (K) =Table(Vi (K) ) 

! Wi (K) =Table(Wi (K) ) 

NEXT K 

MAT Ai= Ai * (5/32768) 

MAT Bi= Bi * (5/32768) 

MAT I i = Ii * <2 A At_exp/10) 

MAT Ci = Ci*(2 A Ct_exp/10) 

SUBEND 

SUB Data_reduce2 (Array <*) ) 

DeSC Thll i *obprograni cakes the frequency values from the arrays Ui,Vi,Wl and replaces them with 
velocities after doing the frequency to velocity conversion. 

Variables : 


Array ( * ) 
Frng_spc{* 
Brgjf rq ( *) 
Mix_frq ( * ) 
Mea_sgn (*) 
Brg_sgn (*> 
Mix_sgn (*) 
Ui (*> 

Vi<*) 

Wi {*) 


An array containing relevant LDV laser and tunnel condition parameters 
Fringe Spacings extracted from Array<*) . 

Bragg Frequencies extracted from Array (*) . 

Mixing Freqs. extracted from Array <*) . 

Measured Freq's. Signs extracted from Array <*) 

Bragg Freq's. Signs extracted from Array(*). 

Mixing Freq's. Signs extracted from Array(*>. 

Array of instantaneous U data. 

Array of instantaneous V data. 

Array of instantaneous W data. 


The following equations are used to convert the frequencies to velocities 
Velocity » Fs * Ftotal 

Ftotal = MeaSgn*Fmeas+BrgSgn*Fbrag+MixSgn*Fmix 


OPTION BASE 1 

COM /Datal/ REAL Table (0 : 32766) , INTEGER Raw ( * ) , Val id ( * ) 

COM /Data2 / REAL U i ( * ) , Vi ( * ) , Wi ( * ) , Ai < * ) , Bi < *) , Ii < M , Ci < * ) 

DIM Frng_spc (3) , Brg_f rq (3) , Mix_f rq (3 } , Mea_sgn ( 3) , Brg_sgn ( 3 ) , Mix_sgn (3) 
DISP "Converting Data" 

MAT Frng_spc= Array ( 35 , 1 : 3 ) 

MAT Brg_f rq= Array (36, 1 : 3) 

MAT Mix_frq= Array (37 , 1 : 3) 

MAT Mea_sgn= Array ( 38, 1 : 3) 

MAT Brg_sgn* Array ( 39, 1 : 3) 

MAT Mix_sgn* Array ( 40, 1 : 3) 

MAT Ui = Ui* (Mea_sgn (1) ) 

MAT Vl= Vi* (Mea_sgn(2) ) 

!MAT Wi= Wi* (Mea_sgn(3> ) 

MAT Ui * U1+ (Brgsgn(l) *Brg_frq(l) +Mix_sgn ( 1> *Mix_frq(l) ) 

MAT Vi* Vi+ (Brg_sgn(2) *Brg_frq{2) +Mix_sgn(2) *Mix_frq<2) ) 
j MAT Wi* Wi+ (Brg_sgn<3) *Brg_frq (3) +Mix_sgn (3) *Mix_frq(3> ) 

MAT Ui* Ui * (Frng_spc (1) ) 

MAT Vi = VI* <Frng_spc(2) ) 

!MAT Wi= Wi* (Frng_spc<3) ) 

MAT Wi= (0) 

SUBEND 


SUB Data_reduce3 (Gain) 

! Description: . , 

! This subprogram takes the voltage values from the array Ai and replaces 

1 temperature after doing the voltage to temperature conversion. 

! Variables: 


them with the total 


Ai ( * ) 
Nsam 
N 

An 

Gain 
Mv ( * ) 
Mvn ( * ) 
Amvn < * } 
Sum (* ) 


Array of instantaneous A data. 

Number of acquired samples. 

Exponent for the terms in the polynomial equations. 

Coefficients for the terms in the polynomial equations. 

Gain for the analog channels voltage. 

Array of gained raw voltages converted to millivolts. 

Array of Mv(*) values raised to the power of N. 

Array of Mvn(*) values multiplied by the polynomial coefficients An 
Summation of the terms of polynomial equation. 


Equations : 

The following equations are used to convert the voltages 
Temp*A7*Ai A 7 + A6*Ai A 6 + ... + A0*Ai A 0 + 460 


to temperatures. 


DISP "Converting Data" 
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10495 

10500 

10505 

10510 

10515 

10520 

10525 

10530 

10535 

10540 

10545 

10550 

10555 

10560 

10565 

10570 

10575 

10580 

10585 

10590 Dat a_ 
10595 
10600 
10605 
10610 
10615 
10620 
10625 
10630 
10635 
10640 
10645 
10650 
10655 
10660 
10665 
10670 
10675 
10680 
10685 
10690 
10695 
10700 
10705 
10710 
10715 

10720 Data 
10725 
10730 
10735 
10740 
10745 
10750 
10755 
10760 
10765 
10770 
10775 
10780 
10785 
10790 
10795 
10800 
10805 
10810 
10815 
10820 
10825 
10830 
10835 
10840 
10845 
10850 
10855 
10860 
10865 
10870 
10875 
10880 
10885 
10890 


OPTION BASE 1 

COM /Data2 / REAL Ui ( * ) , Vi ( • ) , Wi ( • > , Ai < ■ } , B i ( * ) , I i ( * ) , Ci ( * > 

DIM Mv (1000) , Mvn(lOOO) , Amvn(lCOO) , Sum (1000) 

Nsam=SIZE(Ai, 1) 

REDIM Mv (Nsam) ,Mvn (Nsam) , Amvn(Nsam) , Sjm(Nsam) 

MAT Mv = Ai* (1000/Gain) - Tt_mv=Tt _raw/Ga in * 1000 

MAT Sum= (0) 

MAT Mvn= (1) 

FOR N=Q TO 7 
READ An 

MAT Amvn= (An) *Mvr. 

MAT Sum= Sum+Amvn 
MAT Mvn= Mvn . Mv 
NEXT N 

MAT Ai = Sum+ (460) 

SUBEXIT 

• An Al. A 2, A3, A4 , 

559 - 792687, .05708673, -.002 103462, .00003110036 


A7 


Mach 

Tt 

Ts 

N 

An 

Mv 


A5 , A6, 

DATA 150,257.10163,-28.16138,6.064 
SUBEND 

reduce4: SUB Data_reduce4 (Mach, Mv, Ts. Tt ) 

Description: 

This subprogram takes the analog voltage and converts it to a temperature. 

Variables : 

Mach number. 

Total Temperature in degrees Rankine. 

Stagnation Temperature in degrees Rankine. 

Exponent for the terms in the polynomial equations. 

Coefficients for the terms in the polynomial equations. 

The gained raw voltage converted to millivolts. 

EC| The following equations are usea to convert the voltages to temperatures. 

Temp=A7*Ai A 7 ♦ A6*Ai A 6 * ... ♦ AO*Ai''0 ♦ 460 

Tt =0 

FOR N = 0 TC 7 
READ An 
Tt =Tt + An*Mv / 'N 
NEXT N 
Tt =Tt +4 60 
Ts=. 09259*Tt 
IF Mach<>7 THEN BEEP 
IF Mach<>7 THEN PAUSE 
SUBEXIT 

r A n Al, A2, A3, A4. 

DATA 150 # , 257 . 101 63 , - 28 . 161 38, 6 . 064 559, - .7 92687, . 05 70867 3 0021 034 62 , .00003110036 

SUBEND 

clip: SUB Data_c 1 ip ( INTEGER Nsam, REAL Umin, Umax, Vmin, Vmax, Wmin, Wmax) 

This subprogram compares eacn of the instantaneous U,V,W frequencies with 
minimum and maximum frequencies. If the instantaneous value is less than the desired 
the validation word is set to zero. Also, if the instantaneous value is 
then the validation word is set t 


A7 


minimum , 


the 


greater than the desired maxlimim. then the validation word is set to zerd. The «“lng of the 
validate words to zero will have the net effect of discarding the data 

, tne uata are weightea as zero for the average, sdv, shear stress, and 


set. In other words 
cross correlation calculations. 

Variables : 

Number of samples acquired. 

Array of instantaneous U frequencies 

Array of instantaneous V frequencies 

Array of instantaneous W frequencies 

Array of sample validation words. 

The minimum acceptable U frequency 

The maximum acceptable U frequency 

The minimum acceptable V frequency (MHz) . 

The maximum acceptable V frequency (MHz) . 

The minimum acceptable W frequency 

The maximum acceptable W frequency 


Nsam 
Ui {*) 

Vi (*) 

Wi (*> 

Va 1 id ( * ) 

Umin 

Umax 

Vmin 

Vmax 

Wmi n 


(MHz) . 
(MHz) . 
(MHz) . 

(MHz) . 
(MHz) . 


(MHz) . 
(MHz) . 


Wmax 
OPTION BASE 1 

COM /Datal / REAL Table (0: 32166) , INTEGER Raw ( • ) , Va 1 Id (*) 

COM /Data2/ REAL Ui ( * > , Vi ( ■ ) , W i ( • ) ■ Ai I ■ I , 3 i ( * I , I i ( * ) , Ci ( * ) 
DISP "Clipping Histograms’* 

FOR K=1 TO Nsam 

MAT SEARCH U i ( * ) , LOC ( <Umin) ; L, K 

IF L<Nsam THEN VaIid(L)=0 

K=L 

NEXT K 

FOR K=1 TO Nsam 

MAT SEARCH Ui ( * ) , LOC ( >Umax) ; L, K 
IF L<N sam THEN Valid(L)=0 
K=L 

NEXT K 
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10895 

10900 

10905 

10910 

10915 

10920 

10925 

10930 

10935 

10940 

10945 

10950 

10955 

10960 

10965 

10970 

10975 

10980 

10985 

10990 

10995 

11000 Data_sum: 
11005 
11010 
11015 
11020 
11025 
11030 
11035 
11040 
11045 
11050 
11055 
11060 
110 65 
11070 
11075 
11080 
11085 
11090 
11095 
11100 
11105 
11110 
11115 
11120 
11125 
11130 
11135 
11140 
11145 
11150 
11155 
11160 
11165 
11170 
11175 
11180 
11185 
11190 
11195 
11200 
11205 
11210 
11215 
11220 
11225 
11230 
11235 
11240 
11245 
11250 
11255 
11260 
11265 
11270 
11275 
11280 
11285 
11290 


FOR K=1 TO Nsam 

MAT SEARCH Vi ( *) , LOC <<Vmin) ;L, K 

IF L<Nsam THEN Valid<L)=0 

K=L 

NEXT K 

FOR K=1 TO Nsam 

MAT SEARCH Vi (*) , LOC (>Vmax) ;L, K 
IF L<Nsam THEN Valid(L)=0 

K = L 

NEXT K 

IFOR K=1 TO Nsam 

! MAT SEARCH Wi ( * ) , LOC < <Wmi n) ; L, K 
! IF L<Nsam THEN Valid(L>=0 

! K=L 

INEXT K 

IFOR K=1 TO Nsam 

I MAT SEARCH Wi ( * ) , LOC ( >Wmax) ; L , K 
! IF L<Nsam THEN Valid (L) =0 

! K=L 

INEXT K 
SUBEND 

SUB Data_s um ( INTEGER Nsam) 

I Descriptions 

I This subprogram performs the summations on the instantaneous LDV and analog data. Data 

I will be weighted as zero in the summations if the value of the validation word is set to zero. 

I Intermediate arrays will be made so that summations of the products of the LDV and analog data 

! can be determined. 

! Variables: 

I Nsam Number of samples acquired. 

I Valid{*) Array of sample validation words. 

I ui { * ) Array of instantaneous U frequency or velocity samples. 

i Vi(*) Array of instantaneous V frequency or velocity samples. 

I Wi(*) Array of instantaneous W frequency or velocity samples. 

j Ai{*) Array of instantaneous A voltage samples. 

I Bi(*) Array of instantaneous B voltage samples. 

! Ii(*) Array of inter-arrival times, 

i Ci(*) Array of coincidence times. 

! p uu <*) Instantaneous product of the instantaneous Ui 4 Ui . 

I Pvv(*) Instantaneous product of the instantaneous Vi 4 Vi. 

I pww <*) Instantaneous product of the instantaneous Wi 4 Wi. 

I paa ( * > Instantaneous product of the instantaneous Ai 4 Ai . 

I Pbb(*) Instantaneous product of the instantaneous Bi 4 Bi . 

I pii (*) Instantaneous product of the instantaneous Ii 4 Ii. 

I Pec (*) Instantaneous product of the instantaneous Ci 4 Ci . 

I Puv(*) Instantaneous product of the instantaneous Ui & Vi. 

! Pvw{*) Instantaneous product of the instantaneous Vi 4 Wi . 

I Pwu (*) Instantaneous product of the instantaneous Wi 4 Ui . 

I Pab{*} Instantaneous product of the instantaneous Ai 4 Bi . 

! Pua(*) Instantaneous product of the instantaneous Ui 4 Ai . 

I Pva(*) Instantaneous product of the instantaneous Vi 4 Ai . 

I Pwa(*> Instantaneous product of the instantaneous Wi 4 Ai . 

I Sumu Summation of the array Ui . 

! Sumv Summation of the array Vi. 

! Sumw Summation of the array Wi. 

! Suma Summation of the array Ai . 

I Sumb Summation of the array Bi. 

I Sumi Summation of the array Ii. 

I Sumc Summation of the array Ci. 

I Sumuu Summation of the array Puu. 

I Sumw Summation of the array Pvv. 

I Sumww Summation of the array Pww . 

! Sumaa Summation of the array Paa. 

! Sumbb Summation of the array Pbb. 

I Sumi i Summation of the array Pii. 

I Sumcc Summation of the array Pcc. 

I Sumuv Summation of the array Puv. 

I Sumvw Summation of the array Pvw. 

! Sumwu Summation of the array Pwu. 

I Sumab Summation of the array Pab. 

I Sumua Summation of the array Pua. 

! Sumva Summation of the array Pva. 

I Sumwa Summation of the array Pwa. 

I Sumi Number of valid samples acquired. 

OPTION BASE 1 

COM /Datal / REAL Table <0 : 32766) , INTEGER Raw < * ) , Val id ( * ) 

COM /Data2/ REAL Ui (*> , Vi <*) , Wi < *) , Ai { *> , Bi < *) , Ii < *) # Ci < * > 

COM /Data3/ REAL Puu ( * ) , Pvv ( * ) , Pww ( *) , Paa ( *) , Pbb ( * ) , Pi i ( * ) , Pcc ( * ) 

COM /Data4 / REAL Puv ( * ) , Pvw ( * ) , Pwu ( * ) , Pab ( *) , Pua < * > , Pva (* ) , Pwa ( * ) 

COM /Sumi/ REAL Sumu, Sumv, Sumw, Suma, Sumb, Sumi, Sumc, Sumi 
COM /Sum2/ REAL Sumuu, Sumw, Sumww, Sumaa, Sumbb, Sum! i, Sumcc 
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11295 

11300 

11305 

11310 

11315 

11320 

11325 

11330 

11335 

11340 

11345 

11350 

11355 

11360 

11365 

11370 

11375 

11380 

11385 

11390 

11395 

11400 

11405 

11410 

11415 

11420 

11425 

11430 

11435 

11440 

11445 

11450 

11455 

11460 

11465 

11470 

11475 

11480 

11485 

11490 

11495 

11500 

11505 

11510 

11515 

11520 

11525 

11530 

11535 Data 
11540 
11545 
11550 
11555 
11560 
11565 
11570 
11575 
11580 
11585 
11590 
11595 
11600 
11605 
11610 
11615 
11620 
11625 
11630 
11635 
11640 
11645 
11650 
11655 
11660 
11665 
11670 
11675 
11680 
11685 
11690 


calc: 


COM /Sum3/ REAL Sumuv, Sumvw, Sumwu, Sun 

REDIM Puu(Nsam) ,Pw(Nsam) , 

r Pww (Nsam) , F 

REDIM Puv(Nsam) ,Pvw(Nsam) , 

( Pwu (Nsam) , E 

DISP "Summing Data" 
MAT Ui = Ui . Valid 

! Ui(I> 3 

MAT Vi= Vi . Valid 

! Vid) 3 

MAT Wi = Wi . Valid 

! Wi(I) 3 

MAT Ai = Ai . Valid 

! Ai(I) 3 

MAT Bi = Bi . Valid 

! Bi(I) 3 

MAT I i = Ii . Valid 

! lid) : 

MAT Ci= Ci . Valid 

! Cid) . 

MAT Puu= Ui . Ui 

! Puud) 

MAT Pvv= Vi . Vi 

! Pvv(I) 

MAT Pww= Wi . Wi 

! Pww(I) 

MAT Paa= Ai . Ai 

! Paa ( I ) 

MAT Pbb= Bi . Bi 

! Pbb ( I ) 

MAT Pi i= Ii . Ii 

! Piid) 

MAT Pcc= Ci . Ci 

! Pcc(I) 

MAT Puv= Ui . Vi 

! Puv(I) 

MAT Pvw= Vi . Wi 

! Pvw(I) 

MAT Pwu 3 Wi . Ui 

! Pwu(I) 

MAT Pab= Ai . Bi 

! Pab (I) 

MAT Pua= Ui . Ai 

! Pua (I ) 

MAT Pva= Vi . Ai 

! Pva ( I ) 

MAT Pwa = Wi . Ai 

1 Pwa ( I 1 

Sumu=SUM(Ui) 

! Sumu 

Sumv=SUM (Vi ) 

! Sumv 

Sumw=SUM (Wi > 

I Sumw 

Suma^SUM (Ai ) 

! Sum a 

Sumb=SUM (B i ) 

! Sumb 

Sumi=SUM (I i) 

! Sumi 

Sumc=SUM <C i ) 

! Sumc 

Sumuu=SUM ( Puu) 

! Sumuu 

Sumvv=SUM ( Pvv) 

! Sumw 

Sumww=SUM ( Pww) 

! Sumww 

Sumaa=SUM ( Paa) 

! Sumaa 

Sumbb=SUM (Pbb) 

! Sumbb 

Sumi i=SUM ( P ii ) 

! Sumi i 

Sumcc=SUM ( Pcc) 

! Sumcc 

Sumuv=SUM ( Puv) 

! Sumuv 

Sumvw=SUM ( Pvw) 

! Sumvw 

Sumwu=SUM ( Pwu) 

! Sumwu 

$umab=SUM (Pab) 

! Sumab 

Sumua*SUM (Pua) 

! Sumua 

Sumva=SUM ( Pva ) 

! Sumva 

Sumwa=SUM ( Pwa) 

! Sumwa 

Suml=SUM (Valid) 

! Sumi 


t'ww iNsami , raa , *■ + - > ' 

Pwu (Nsam) , Pab (Nsam) , Pua (Nsam) , Pva (Nsam) , Pwa (Nsam) 


is the instantaneous velocity Vi (I). 

is the instantaneous velocity Wi(I). 

is the instantaneous Channel #1 Analog Voltage Ai(I). 

is the instantaneous Channel #2 Analog Voltage Bid), 

is the inter-arrival time lid), 

is the coincidence time Ci(I). 
is the square of the instantaneous velocity Uid). 

Is the square of the instantaneous velocity Vi (I). 

is the square of the instantaneous velocity Wi (I) . 

is the square if the instantaneous Analog Voltage Aid). 

is the square if the instantaneous Analog Voltage Bid). 

is the square if the inter-arrival time lid) . 

is the square if the coincidence time Cid) . 

is the product of Uid) and Vid) . 

is the product of Uid) and Wid). 

is the product of Wi(I) and Ui(I). 

is the product of Ai{I) and Bid). 

is the product of Ui(I) and Aid). 

is the product of VI (I) and Aid) . 

is the product of Wi<I) and Aid). 

is the summation of Ui(I). 

is the summation of Vi(I). 

is the summation of Wid). 

is the summation of Aid). 

is the summation of Bid). 

is the summation of Ii(I). 

is the summation of Ci(I). 

is the summation of Uid)*Uid). 

is the summation of Vi(I)*Vi(I). 

is the summation of Wi(I)*Wi(I). 

is the summation of Ai(I)*Ai(I). 

is the summation of Bi(I)*Bi(I). 

is the summation of Ii(I)*Ii(I). 

is the summation of Cid)*Cid). 

is the summation of Ui(I)*Vi(I). 

is the summation of Vi(I)*Wi(I). 

is the summation of Wid)*Ul(I). 

is the summation of Aid)*Bi(I). 

is the summation of Ui(I)*Ai(I). 

is the summation of Vi(I)*Aid). 

is the summation of Wi(I)*Ai{I). 

is the number of valid samples. 


SUBEND 

SUB Data calc 


DeSC This i subprogram uses the summations on the Instantaneous LDV and analog data as well as the 

summations of the products of the LDV and analog data. The subprogram takes these summations 
and calculates the averages, standard deviations, and shear stresses. 


Sumi 

Number of 

valid samples 

acquired. 

Sumu 

Summation 

of 

the 

array 

Ui. 

Sumv 

Summation 

of 

the 

array 

Vi. 

Sumw 

Summation 

of 

the 

array 

Wi . 

Suma 

Summat ion 

of 

the 

array 

Ai . 

Sumb 

Summation 

of 

the 

array 

Bi. 

Sumi 

Summation 

of 

the 

array 

Ii. 

Sumc 

S ummat ion 

of 

the 

array 

Ci. 

Sumuu 

Summation 

of 

the 

array 

Puu. 

Sumw 

Summation 

of 

the 

array 

Pvv. 

Sumww 

Summation 

of 

the 

array 

Pww. 

Sumaa 

Summat ion 

of 

the 

array 

Paa . 

Sumbb 

Summation 

of 

the 

array 

Pbb. 

Sumii 

Summation 

of 

the 

array 

pii. 

Sumcc 

Summation 

of 

the 

array 

Pcc. 

Sumuv 

Summat ion 

of 

the 

array 

Puv. 

Sumvw 

Summation 

of 

the 

array 

Pvw. 

Sumwu 

Summat ion 

of 

the 

array 

Pwu. 

Sumab 

Summation 

of 

the 

array 

Pab. 

Sumua 

Summation 

of 

the 

array 

Pua. 

Sumva 

Summat ion 

of 

the 

array 

Pva. 

Sumwa 

Summation 

of 

the 

array 

Pwa . 

N 

Number of 

valid 

samples acquired 

U 

Average U 

frequency or 

velocity. 

V 

Average V 

frequency or 

velocity. 

w 

Average W 

frequency or 

velocity. 
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11695 

11700 

11705 

11710 

11715 

11720 

11725 

11730 

11735 

11740 

11745 

11750 

11755 

11760 

11765 

11770 

11775 

11780 

11785 

11790 

11795 

11800 

11805 

11810 

11815 

11820 

11825 

11830 

11835 

11840 

11845 

11850 

11855 

11860 

11865 

11870 

11875 

11880 

11885 

11890 

11895 

11900 

11905 

11910 

11915 

11920 

11925 

11930 

11935 

11940 

11945 

11950 

11955 

11960 

11965 

11970 

11975 

11980 

11985 

11990 

11995 

12000 

12005 

12010 

12015 

12020 

12025 

12030 

12035 

12040 

12045 Data_trnsfrm: 
12050 
12055 
12060 
12065 
12070 
12075 
12080 
12085 
12090 


A Average A voltage. 

B Average B voltage. 

I Average inter-arr ival time. 

C Average coincidence time. 

U1 Standard deviation for U frequency or velocity. 

VI Standard deviation for V frequency or velocity. 

W1 Standard deviation for W frequency or velocity. 

A1 Standard deviation for A voltage. 

B1 Standard deviation for B voltage. 

H Standard deviation for inter-arrival time. 

Cl Standard deviation for coincidence time. 

Ulvl Velocity: Velocity Shear Stress. 

Vlwl Velocity : Velocity Shear Stress. 

Wlul Velocity: Velocity Shear Stress. 

Albl Voltage :Voltage Cross Correlation. 

Ulal Velocity :Voltage Cross Correlation. 

Vial Velocity : Voltage Cross Correlation. 

Wlal Velocity : Voltage Cross . Correlat ion . 

COM /Suml/ REAL Sumu, Sumv, Sumw, Suma, Sumb, Sumi , Sumc, Suml 
COM /Sum2/ REAL Sumuu, Sumw, Sumww, Suma a, Sumbb r Sumi i , Sumcc 
COM /Sum3/ REAL Sumuv, Sumvw, Sumwu, Sumab, Sumua, Sumva, Sumwa 

COM /Reduced/ N,U,V,W,A,B, I, C,U1, VI, Wl. Al. Bl, II, Cl, Ulvl, Vlwl, Wlul. Albl, Ulal, Vial, Wlal 
DISP "Calculating Results" 

N=Suml 
IF N>0 THEN 
U=Sumu/N 
V-Sumv/N 
W=5umw/N 
A=Suma/N 
B = Sumb/N 
I=Sumi/N 
C=Sumc /N 

U1 =SQR (ABS (Sumuu/N-U*U ) ) 

VI =SQR { ABS ( Sumvv/N-V*V) ) 

Wl =SQR (ABS ( Sumww/N-W* W) ) 

Al =SQR {ABS (Sumaa/N-A*A) ) 

B1=SQR (ABS ( Sumbb/N-B*B) > 

II =SQR (ABS (Sumii/N-l*I) ) 

C1=SQR (ABS ( Sumcc/N-C*C) ) 

U1 vl=Sumuv/N-U*V 
VI wl=Sumvw/N-V*W 
Wl ul =Sumwu/N-W"U 
Albl=Sumab/N-A*B 
Ulal =Sumua /N-U*A 
Vlal=Sumva/N-V*A 
Wlal= : Sumwa/N-W*A 

ELSE 

U*0 
V=0 

w=c 
A=0 
B = 0 
1=0 
C = 0 
U1=0 
VI =0 
Wl =0 
Al =0 
Bl =0 
11=0 
Cl =0 
U1 vl=0 
Vlwl=0 
Ml ul=0 
Albl=0 
Ulal=0 
Vlal=0 
Wl al =0 
END IF 
SUBEND 

SUB Data_t rnsf rm (REAL K3x3(*) 

Description^ subp] _ ogram per f orms a coordinate system transformation on the averages, standard 

deviations, and shear stresses. The coordinate system transformation to be applied is passe 
through the ”K3X3“ array. If a TUNNEL to MODEL coordinate system transformation is to be 
performed, then the array ”Tun2mod" array will be passed to the “K3X3" array. 

NOTE: This sub-program performs a three dimensional coordinate system trans orma 
averages, standard deviations, shear stresses, and cross correlations. It performs t s 
transformation for averages, standard deviations, shear stresses, and cross correlations that 
Include one or more of the velocities U,V, or W. The delivered system is a two component 


, U, V, W, U1 , VI , Wl, Ulvl , Vlwl , Wlul, Ulal, VI al,Wlal) 
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Other terms 


12095 

12100 

12105 

12110 

12115 

12120 

12125 

12130 

12135 

12140 

12145 

12150 

12155 

12160 

12165 

12170 

12175 

12180 

12185 

12190 

12195 

12200 

12205 

12210 

12215 

12220 

12225 

12230 

12235 

12240 

12245 

12250 

12255 

12260 

12265 

12270 

12275 

12280 

12285 

12290 

12295 

12300 

12305 

12310 

12315 

12320 

12325 

12330 

12335 

12340 

12345 

12350 

12355 

12360 

12365 

12370 

12375 

12380 

12385 

12390 

12395 

12400 

12405 

12410 

12415 

12420 

12425 

12430 

12435 

12440 

12445 

12450 

12455 

12460 

12465 

12470 

12475 

12480 

12485 

12490 


system. Therefore, the third component W will have been set to be equal to zero, 
containing W are also set to zero by the main program. <W=Wl=Ulwl =Wlul=Wlal =0> . 
Variables: 


u 

Average U velocity. 



V 

Average V velocity . 



w 

Average W velocity. 



Ul 

Standard deviation for U 

velocity . 


VI 

Standard deviation for V 

velocity . 


Wl 

Standard deviation for W 

velocity . 


Ulul 

Velocity : Velocity Normal 

Stress . 


Ulvl 

Velocity : Velocity Shear 

Stress . 


Ulwl 

Velocity :Velocity Shear 

Stress . 


Vlul 

Veioci cy : Velocity Shear 

Stress. 


Vlvl 

Ve loci ty: Velocity Normal 

Stress . 


Vlwl 

Velocity : Velocity Shear 

Stress . 


Wlul 

Velocity :Velocity Shear 

Stress . 


Wlvl 

Velocity : Velocity Shear 

Stress . 


Wlwl 

Velocity: Velocity Normal 

Stress . 


Ulal 

Velocity :Voltage Cross 

Correlation . 


Vial 

Velocity :Voltage Cross 

Correlation. 


Wlal 

Velocity :Voltage Cross 

Correlation. 


R ( * ) 

Original U,V,W. 



F { * ) 

Original Ulal, Vial , Wlal . 



P {*) 

Original stress terms Ulul , Ulvl Wlwl 

- 

K3X3 

Coordinate system transformation matrix 

for 


correlation conversions. 



K9X9 

Coordinate system transformation matrix 

for 


stress conversions. 



S(*> 

Transformed U,V,W. 



HO 

Transformed Ulal , Vial, Wlal . 


Q(M 

Transformed stress terms 

Ulul, Ulvl, . . . ,Wlwl 


OPTION BASE 1 

REAL R{3> , S<3) , F<3> , H(3) , P (9) , Q(9) , K9x9(9, 9} 
DISP “Transforming Results” 

! Calculate U1 ul, Vlvl, Wlwl using U1,V1,W1. 
Ulul=Ul*Ul 
VI vl=Vl *V1 
W1 wl =W1 * W1 

! Set Ulwl, Vlul, Wlvl equal to Wlul , Ulvl , Vlwl . 

Ulwl=Wlul 

VI ul=Ulvl 


average and Velocit y : Voltage 
Velocity:Velocity normal and 


cross 

shear 


Wlvl=Vlwl 

! Fill the matrix R with U,V,W. 

R ( 1 ) =U 
R ( 2 ) =V 
R { 3) =W 

! Fill the matrix F with Ulal, Vial , Wla 1 . 

F (1) =Ulal 
F (2) =Vlal 

F(3)*Wlal , fl , , 

! Fill Che matrix P with Ulul, Ulvl, Ulwl, Vlul, Vlvl, Vlwl , Wlul .Wlvl. Wlwl . 

P { 1 ) =Ulul 
P {2) =Ulvl 
P (3) =Ulwl 
P (4) =Vlul 
P (5) *Vlvl 
P ( 6) =Vlwl 
P < 7) sWlul 
P < B) =W1 vl 

P { 9) =Wlwl . - 

! Define the matrix K9x9 using products of the elements from then matrix KJx 

FOR X=1 TO 9 

FOR Y = 1 TO 9 

Yl = ( (Y-l) DIV 3) +1 
Xl=( (X-l) DIV 3) +1 
Y2 = ( (Y-l ) MOD 3) +1 
X2 = ( (X-l ) MOD 3) +1 
K9x9 ( Y, X) =K3x3 (Yl, XI) *K3x3 (Y2, X2) 


NEXT Y 
NEXT X 

! Transform matrix R to S using K3x3. 

MAT S= K3x3*R 

! Transform matrix F to H using K3x3. 

MAT H= K3x3*F 

! Transform matrix P to Q using K9x9. 

MAT Q= K9x9*P 

! Extract the transformed U,V,W from the matrix S. 

U=S(1J 
V=S (2) 

W=S (3) 
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12495 

12500 

12505 

12510 

12515 

12520 

12525 

12530 

12535 

12540 

12545 

12550 

12555 

12560 

12565 

12570 

12575 

12580 

12585 

12590 

12595 Data_printl: 
12600 
12605 
12610 
12615 
12620 
12625 
12630 
12635 
12640 
12645 
12650 
12655 
12660 
12665 
12670 
12675 
12680 
12685 
12690 
12695 
12700 
12705 
12710 
12715 
12720 
12725 
12730 
12735 
12740 
12745 
12750 
12755 
12760 
12765 
12770 
12775 
12780 

12785 

12790 

12795 

12800 

12805 

12810 

12815 

12820 

12825 

12830 

12835 

12840 

12845 

12850 Data_print2 : 
12855 
12860 
12865 


the transformed Ulal , Vial , Wlal from the matrix H. 


the transformed Ulul , Ulvl, Ulwl , Vlul , Vlvl , Vlwl , W1 ul , W1 vl , Wlwl from the matrix Q. 


! Extract 
Ulal = H (1) 

Vlal*H (2) 

Wlal*H (3) 

! Extract 
Ulul-Q (1 ) 

Ulvl =Q (2) 

Ulwl=Q(3> 

VI ul=Q ( 4 ) 

VI vl=Q ( 5) 

Vlwl=Q (6) 

Wlul-Q (7) 

Wlvl=Q<8) 

Wlwl=Q{9) 

! Calculate U1,V1,W1 using Ulul, Vlvl, Wlwl. 

Ul =SQR (ABS (Ulul) ) 

V1=SQR (ABS (Vlvl) ) 

Wl=SQR(ABS(Wlwl) ) 

! Return transformed U,V,W,U1, VI, Wl. Ulvl, Vlwl. Wlul, Ulal, Vial. Wlal to main program. 

SUBEND 

SUB Data_print 1 (Run, File, Post*) #CS) 

Description: , ^ _ 

This subprogram prints the averages, standard deviations, shear stresses, and cross 
correlations in tabular form. This subprogram prints the reduced velocity data when their 
units are in frequency (MHz) . 


Var iables : 
U 

V 
W 
A 
B 

I 
C 
Ul 

VI 
Wl 
A1 
Bl 

II 
Cl 

Ulvl 

Vlwl 

Wlul 

Albl 

Ulal 

Vial 

Wlal 

Axi 3 

Pos (* > 

N 


Average U frequency (MHz) . 

Average V frequency (MHz) . 

Average W frequency (MHz) . 

Average A voltage. 

Average B voltage. 

Average inter-arrival time (us) . 
Average coincidence time (us). 
Standard deviation for U frequencies 
Standard deviation 
Standard deviation 
Standard deviation 
Standard deviation 
Standard deviation 


for 

for 


(MHz) . 
(MHz) . 
(MHz) . 


V frequencies 
W frequencies 
for A voltages, 
for B voltages. 

for inter-arrival times (us) . 

Standard deviation for coincidence times (us) . 

Velocity :Velocity Shear Stress. 

Shear Stress. 

Shear Stress. 

Cross Correlation. 

Cross Correlation. 

Cross Correlation. 

Cross Correlation. 

Indicates one of the three axes X,Y,Z being traversed. 
Current Traverse Positions. 

Number of valid samples acquired. 

Indicates units and/or coordinate system of data printed. 


Velocity :Velocity 
Velocity : Velocity 
Voltage :Voltage 
Velocity:Voltage 
Velocity : Voltage 
Velocity : Voltage 


"us- 


CS 

OPTION BASE 1 

COM /Reduced/ N, U, V, W, A, B, I, C, Ul , VI , Wl 
DISP "Printing Results" 

ON ERROR CALL Error 
PRINTER IS PRT; WIDTH 144 
L$=CHR5 (NUM("X"> ♦Axis-1)*"=" 

PRINT USING 12820; "Xtun 3 ", Pos (1) , "in 

U* A* =" , Ulal , " CT = ",C, 

PRINT USING 12825; "Ytun=", Pos (2) , "in 

V'A'=", Vial, " I AT a", I, "us* 

PRINT USING 12830; "Ztun=", Pos (3) , "in W 

W'A'=", Wlal, " 

PRINT USING 12835; "Run =" 

IAT * =" , II, "us" 

PRINT USING 12840 ; "File*" 

N =" , N, " " 

PRINT 

PRINTER IS CRT 
OFF ERROR 
IMAGE 
IMAGE 
IMAGE 
IMAGE 
IMAGE 
SUBEND 

SUB Data_print2 (Run, File, Pos (*> ,C$) 

! Description: 

! This subprogram prints the averages, 


Al, Bl, II, Cl, Ulvl, Vlwl, Wlul, Albl, Ulal, Vial, Wlal 


U=",U, "MHz 

i" 

V=",V, "MHz 


= " , W, “MHz 


CT' 
, Run, 


, File, ' 


=",C1, "us" 

A=", A, "v 

B=" , B, "v 


U' =",U1, "MHz 
V ' =*, VI , "MHz 
W' =",W1, "MHz 
A'a", Al, "v 
B* =" , Bl, "v 


U* V' =",Ulvl, ' 
V*W‘=" , Vlwl, ' 
W' U'=", Wlul, 1 


A’B* Albl, " 


8X, K, 3D . 4D, 

K, 5D.3D, 

K, 5D.3D, 

K,8D.2D, 

K, 6D.5D, 

K, 9D,K 

8X, K, 3D . 4D, 

K, 5D . 3D, 

K, 5D.3D, 

K, 8D.2D, 

K, 6D.5D, 

K, 9D, K 

8X , K, 3D . 4D, 

K, 5D. 3D, 

K,5D.3D, 

K, 8D . 2D, 

K, 6D.5D, 

K, 9D, K 

8X, K, 5D. 2D, 

K, 5D.3D, 

K, 5D.3D, 

K, 11X , 

K, 12X , 

K, 9D, K 

8X, K, 5D. 2D, 

K, 5D . 3D, 

K, 5D.3D, 

K, 8D.2D, 

K, 12X , 

K, 9D, K 


standard deviations, and shear stresses, and cross 


This subprogram prints uic ivctayw, j . _ , . .u. ir 

correlations In tabular form. This subprogram prints the reduced velocity data when their 
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12870 

12875 

12880 

12885 

12890 

12895 

12900 

12905 

12910 

12915 

12920 

12925 

12930 

12935 

12940 

12945 

12950 

12955 

12960 

12965 

12970 

12975 

12980 

12985 

12990 

12995 

13000 

13005 

13010 

13015 

13020 

13025 

13030 

13035 

13040 

13045 

13050 

13055 

13060 

13065 

13070 

13075 

13080 

13085 

13090 

13095 

13100 

13105 

13110 

13115 

13120 

13125 

13130 

13135 

13140 

13145 

13150 

13155 

13160 

13165 

13170 

13175 

13180 

13185 

13190 

13195 

13200 

13205 

13210 

13215 

13220 

13225 

13230 

13235 

13240 


units are in m/ 
Var iables: 

U 


V 
W 
A 
B 

I 
C 
U1 

VI 
W1 
A1 
B1 

II 
Cl 

Ulvl 

Vlwl 

Wlul 

Albl 

Ulal 

Vial 

Wlal 

Axis 

Pos (' 

N 


Average U velocity. 

Average V velocity. 

Average W velocity. 

Average A voltage. 

Average B voltage. 

Average inter-arrival time. 

Average coincidence time. 

Standard deviation for U velocities (m/s). 

Standard deviation for V velocities (m/s).. 

Standard deviation for W velocities (m/s),. 

Standard deviation for A voltages. 

Standard deviation for B voltages. 

Standard deviation for inter-arrival times (us) . 

Standard deviation for coincidence times (us). 

Velocity: Velocity Shear Stress. 

Velocity:Velocity Shear Stress. 

Velocity :Velocity Shear Stress. 

Voltage :Voltage Cross Correlation. 

Velocity : Voltage Cross Correlation. 

Velocity: Voltage Cross Correlation. 

Velocity :Voltage Cross Correlation. 

Indicates one of the three axes X,Y,Z being traversed. 
Current Traverse Positions. 

Number of valid samples acquired. 

Indicates units and/or coordinate system of data printed. 


C$ 

COM Reduced/ N,U, V, W, A. B, I.C. 01, VI, W1 , Al, Bl, II, Cl, Ulvl, Vlwl, Wlul, Albl. 01.1 , Vial, Wlal 
DISP "Printing Results" 

ON ERROR CALL Error 
PRINTER IS PRT; WIDTH 144 
LS =CHRS (NUM ( "X" ) tAxis-1) 6"=" 

PRINT USING 13070; "Xmod=", Pos (1) , 

U ' A ' , Ulal , " CT 

PRINT USING 13 075 ; " Ymod=" , Pos ( 2) , 

V* A' Vial, " I AT 


", File, 


in U=",U,"m/s 

U ' -",U1 , "m/s 

U 1 V 1 =" , Ulvl , 

* C, "us" 

in V=" , V, "m/s 

< 

ii 

s 

< 

« 

3 

V, 

« 

V* W' =",Vlwl 

", I , "us" 

in W=",W,"m/s 

W' =",W1 , "m/s 

W' U'=", Wlul, 

■ " , Cl , "us" 

A=", A, "v 

A’=", Al, "v 


B=", B, "v 

B' =" , Bl , "v 

A 1 B* , Albl, " 


K, 

3D. 

4D, 

K, 

5D. 

3D, 

K, 

5D.3D, 

K, 

8D.2D, 

K, 

6D. 

5D, 

K, 9D, K 

K, 

3D. 

, 4D, 

K, 

5D . 

, 3D, 

K, 

5D.3D, 

K, 

8D.2D, 

K, 

6D. 

5D, 

K, 9D, K 

K, 

3D. 

. 4D, 

K, 

5D. 

, 3D, 

K, 

5D.3D, 

K, 

8D.2D, 

K, 

6D . 

5D, 

K, 9D, K 

K, 

5D . 

■ 2D, 

K, 

5D, 

, 3D, 

K, 

5D.3D, 

K, 

11X , 

K, 

12X 


K, 9D, K 

K, 

, 5D. 

.2D, 

K, 

, 5D . 

. 3D, 

K, 

, 5D.3D, 

K, 

.8D.2D, 

K, 

, 12X 


K, 9D, K 


Data plot: 


W'A'=", Wlal, " CT* 

PRINT USING 13085 ; "Run =",Run," 

IAT**", II, "us" 

PRINT USING 13090; "FI le= 

N -",N," H 
PRINTER IS CRT 
OFF ERROR 

IMAGE 8X, 

IMAGE 8X, 

IMAGE 8X, 

IMAGE BX, 

IMAGE 8X, 

SUBEND 

SUB Data_plot (Array (*) , Symbols <*) , Plot , Sy, Y, X) 

DCSC This^ subprogram plots the averages, standard deviations, and shear stresses In the « Profile 
plots on the CRT. This subprogram will typically be called up to 4 times for each of the 
four profile plots. The first profile plot will contain the average velocities and their 
standard deviations normalized by Uedge . The second profile plot will contain ^eaverag 
voltages and their standard deviations for the two analog channels The third . wm, 
will contain the average temperature and its standard deviation. The forth 

plot will contain the velocity shear stress terms. Data points outside the plot boundaries 
will be plotted at the plot boundary. 

Variables: 

Array containing the plot positions and scales. 

Array of Symbol arrays. Each symbol array contains a distinct geometric symbo . 
Indicates which plot that the data X will be plotted against Y in. 

Vertical position of the normalized data points in the plot. 

Horizontal position of the data point. 

Array containing the plot's scales. 

Array containing the plot's CRT position. 

Array containing a distinct geometric symbol. 

Specifies which distinct geometric symbol is to be used. 

Specifies the number of coordinates that make up the distinct geometric symbol. 


Array (*) 
Symbols ( *) 
Plot 
Y 
X 

Wndw ( * ) 
Vwprt ( * ) 
Symbol ( * ) 
Sy 


Noc 

OPTION BASE 1 

COM /Color 1/ Clear, Black, Red, Yellow, Green, Cyan, Blue, Magenta 

COM /Color2/ White , Olive, Aqua , Roya 1, Maroon , Brick, Brown, Gray 
DIM Wndw (4) , Vwprt (4) , Symbol (20,3) 

DISP "Plotting Results" 

MAT Wndw= Array ( 60+Plot , *) 

MAT Vwprt = Array (70+Plot , * ) 

Noc = Symbo Is (Sy, 0, 1 ) 
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13245 

REDIM Symbol (Noc, 3} 

13250 

MAT Symbol= Symbols (Sy, 1 :Noc, * 

13255 

SELECT Sy 

13260 

CASE 1 ' 

132 65 

PEN 16*Black 

13270 

AREA PEN 1 6* Red 

13275 

CASE 2 ! 

13280 

PEN 1 6*Black 

13285 

AREA PEN 16*Yellow 

132 90 

CASE 3 ' 

13295 

PEN 1 6 * Black 

13300 

AREA PEN 1 6*Green 

13305 

CASE 4 1 

13310 

PEN 16*Black 

13315 

AREA PEN 1 6*Blue 

13320 

END SELECT 

13325 

Xm=MIN (MAX (X, Wndw (1) ) , Wndw (2) ) 

13330 

Ym=MIN (MAX (Y, Wndw (3) ) , Wndw (4) ) 

13335 

LORG 5 

13340 

MOVE Xm, Ym 

13345 

SYMBOL Symbol (*), FILL, EDGE 

13350 

SUBEND 


13355 Tcs8 : 

13360 TcsSinit : 

13365 

13370 

13375 

13380 

13385 

13390 

13395 

13400 

13405 

13410 

13415 

13420 

13425 

13430 

13435 

13440 

13445 

13450 Tcs8set : 

13455 

13460 

13465 

13470 

13475 

13480 

13485 

13490 

13495 

13500 

13505 

13510 

13515 

13520 

13525 

13530 

13535 

13540 

13545 

13550 

13555 

13560 

13565 

13570 

13575 

13580 

13585 

13590 

13595 

13600 

13605 

13610 

13615 

13620 

13625 

13630 

13635 

13640 


i i r r i t i i i f t t i t 


t I 1 t t T t I I I I t t 


t if x is out of bounds then set X to the edge of the graph. 
! If y is out of bounds then set Y to the edge of the graph. 


! This draws the selected symbol. 

,, tl i ,, i i i j !! t I ! i m m ii t j i !!! j !!!!!!!!!!!!!! !! I !!!!!!! ! 


SUB TcsBinit (0Tcs8) 

Description ^ ^ used tQ initialize this computer's internal RS232 serial interface. 

The subprogram also opens the TCS8 path on the Hewlett Packard series 9000 model 3XX compu er 
for command and data transfer. The I/O path is given the name "l?Tcs8". Data transferred 
from the HP to the TCS8 will use the "OUTPUT 0Tcs8" statement. Data transferred to the HP 
from TCS8 will use the "ENTER 0Tcs8" statement. 

The I/O path has a select code of 9 end is initialized to perform unformatted byte 
transfers without any end of line designations. 

REAL 1(1:8) , C ( 1 : 8) 

ASSIGN 0Tcs8 TO 9; BYTE, FORMAT OFF, EOL "" 


Reset interface. 

Select a baud rate of 9600. 

Select even parity, enable parity, 2 stop bits, 

Enable Carrier Detect. Disable Data Set Ready. 

Default baud rate of 9600. 

Default character format: Even parity enabled, 2 stop, 8 bits/ char. 


8 bits per character. 
Disable Clear To Send. 


CONTROL 9 , 0 ; 1 
CONTROL 9, 3; 9600 
CONTROL 9, 4; 31 
CONTROL 9 , 1 2 ; I VAL ( H EF , 16) 

CONTROL 9, 13; 9600 
CONTROL 9, 14; 31 
SUBEND 

SUB TcsSset (CS, 0Tcs8) 

De3C This i subprogram allows che user to view and then set the various initialization parameters 
of each channel of the TCS8 . These parameters are the current position, counts per inch, 
counts per revolution, motor velocity, motor acceleration, plus and minus limit switches, 
home switch, and motor stall indication. All of these parameters can be viewed and set except 
the limit and home switches and the stall Indication. They can only be viewed. 

Variables: 

A TCS8 command string which indicates which parameter we want to view 4 set . 

Array of old TCS8 parameters viewed (received from TCS8) . One for each channel. 
Array of new TCS8 parameters to be set (sent to TCS8) . One for each channel. 
String array of TCS8 parameter names. 

String array of image formats. 

String array of units. 

Indicates the TCS8 channel number. Used to index the above arrays. 


Command? 

View(*) 

Set (*) 

Name$ ( * ) 

Image? ( M 
Units? ( * ) 

Channel 

OPTION BASE 1 ri 

DIM View (8,1), Set (8,2) , Name? (8,1) [ 10 ] , Image? (8,1) ( 10) , Units? (8,1) [10] 

OUTPUT 0Tcs8 USING "K, " V" tCSfO » ! Tell the TCS8 we want to View a parameter. 

ENTER 0Tcs8 USING "8 I K) View ( * ) ! Enter the parameter specified by Command?. 

I Initialize the Name? , Image?, Unit s? and Set arrays. 

DATA X1,X2,Y1, Y2, Z1,Z2,A1,A 2 
READ Name? (*) 

MAT Image?= ("6D.4D") 

FOR Channe 1*1 TO 8 

Set (Channel, 1) ^Channel 
SELECT C? 

CASE M P" ! Command$="P" indicates we want to view the encoder Positions in inches. 

NameS (Channel, l)=NameS (Channel , 1) 4" <pos> " 

Units? (Channel, 1) ="in" 

CASE "U" ! Command$="U" indicates we want to view the Units in counts per inch. 

Name? (Channel, 1) =Name? (Channel, 1)4" (cpi) " 

Units? (Channel, 1) ="cnt" 

CASE "R" ! CommandS="R" indicates we want to view the number counts per Revolution. 

NameS (Channel, 1) =NameS (Channel , 1 ) 4 " (cpr) " 

UnitsS (Channel, 1) ="cnt" t , , 

CASE "V” ! CommandS="V" Indicates we want to view the Velocity in revolution per second. 

Name? (Channel , 1 ) =NameS (Channel, 1) 4" (vel) " 

Units? (Channel, 1) ="rev" 

CASE "A" ! CommandS="A" indicates we want to view the Acceleration in revolution per second 2. 
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13645 

13650 

13655 

13660 

13665 

13670 

13675 

13680 

13685 

13690 

13695 

13700 

13705 

13710 

13715 

13720 

13725 

13730 

13735 

13740 

13745 

13750 

13755 

13760 

13765 

13770 

13775 Tcs8read: 

13780 

13785 

13790 

13795 

13800 

13805 

13810 

13815 

13820 

13825 

13830 

13835 

13840 

13845 

13850 

13855 

13860 

13865 

13870 

13875 

13880 

13885 

13890 

13895 

13900 

13905 

13910 Tcs8print : 

13915 

13920 

13925 

13930 

13935 

13940 

13945 

13950 

13955 

13960 

13965 

13970 

13975 

13980 

13985 

13990 

13995 

14000 

14005 

14010 

14015 

14020 

14025 

14030 

14035 

14040 


Name$ (Channel, 1} =Name$ (Channel, 1)4“ (acc) " 

UnitsS (Channel, 1) =“rev“ 

CASE " + " ' Command$=“+" Indicates we want to view the current + direction limit switches. 

NameS (Channel , 1) =Name$ (Channel, 1) 4“ (+LS) “ 

UnitsS (Channel, 1) =“ 

CASE ! CommandS=“- H indicates we want to view the current - direction limit switches. 

NameS (Channel, 1) =NameS (Channel, 1)4“ (-LS) " 

UnitsS (Channel, 1) =“ 

CASE M S“ ! Command$=“S" indicates we want to view the current motor Stall indication status. 
NameS (Channel , 1 ) =Name$ (Channel , 1 ) 4 “ ( STALL) M 
UnitsS (Channel , 1) =“ 

CASE "H“ ! Command$-"H" indicates we want to view the current Home limit switches. 

NameS (Channel, 1) =Name$ (Channel ,1)4“ (HS) " 

UnitsS (Channel , 1) =“ 

END SELECT 
NEXT Channel 

! The "Change” subprogram allows the user to see and then change the values of the viewed parameters. 
CALL Change ( "VALUES”, View ( *) , NameS (*) , ImageS ( * ) , Unit s$ ( * ) ) 

! The “Set" parameters command is now sent to the TCS8. 

SELECT CS 

CASE “P“, “U", "R“, "V", “A” 

MAT Set (*, 2) = View (*, 1) 

OUTPUT 6Tcs8 USING 13760; “ S"4C$, Set (* ) 

IMAGE K,8(D,“:“,M6D.4D, “,“),/ 

END SELECT 
SUBEND 

SUB Tcs8read(@Tcs8, Tunl (*) ,Tun2 (*) ,Modl (*) , Mod2 (*) , Tun2mod <*) , Mod2tun(*) ) 

! Description: 

t This subprogram reads the current TCS8 positions. The 6 positions are read in TUNNEL 

| coordinates with the units being in inches. Four of the eight positions (XI , Y1 , Z1 , A1 ) which . 

! are the transmitting side traverse positions are entered into the Tunl array. The other four 

! positions (X2, Y2, 22, A2) which are the receiving side traverse positions are entered into the 

! Tun2 array. The Tunl 4 Tun2 arrays are converted from TUNNEL to MODEL coordinates. 

! The current updated positions in the two coordinate systems are printed on the top of the 

! CRT. They are also returned to the main program. The auxiliary channels A1 4 A2 are not used. 

! They can be used in the future to position probes such as hot wires and pitot tubes. 

! Variables: 

! TunH*) TCS8 transmitting side traverse positions (Xl f Yl, Z1 , Al) in TUNNEL coordinates. 

! Tun2(*) TCS8 receiving side traverse positions (X2, Y2, Z2 , A2) in TUNNEL coordinates. 

! Modi (*) TCS8 transmitting side traverse positions in MODEL coordinates. 

! Mod2(*> TCS8 receiving side traverse positions in MODEL coordinates. 

! Tun2mod ( * ) Coordinate system transformation matrix for converting TUNNEL to MODEL. 

1 Mod2t un ( * ) Coordinate system transformation matrix for converting MODEL to TUNNEL. 

COM /Color 1/ Clear , Black, Red, Yellow, Green, Cyan, Blue, Magenta 
COM /Color2/ White , 01 ive, Aqua, Roya 1 , Maroon, Brick, Brown, Gray 
OUTPUT @Tcs8 USING "K,/“;”VP0“ 

ENTER 8Tcs8 USING "8 ( K) Tunl (1 ) , Tun2 ( 1 ) , Tunl < 2) , Tun2 < 2 ) , Tunl ( 3) , Tun2 (3 ) , Tunl ( 4 > , Tun2 (4 ) 

REDIM Tunl (1 : 3 ) , Tun2 { 1 : 3) , Modi (1:3) ,Mod2(l:3) 

MAT Modl = Tun2mod*Tunl 
MAT Mod2= Tun2mod*Tun2 

REDIM Tunl (1:4) ,Tun2 (1 :4) , Modi (1:4) ,Mod2 (1:4) 

CALL TcsSprint (Tunl (*) ,Tun2 (*) ,Modl (*) ,Mod2 (*} ) 

SUBEND 

SUB TcsSprint (Tunl (*) ,Tun2 (*) , Modi (*> , Mod2 (*) > 

! Description: 

! This subprogram prints the current updated TCS8 positions at the top of the CRT. The 

! positions are printed in TUNNEL and MODEL coordinates for each side (Tx 4 Rx) . 

! Variables: 

! Tunl(*) TCS8 transmitting side traverse positions (XI, Yl, 21 , Al) in TUNNEL coordinates. 

! Tun2(*) TCS8 receiving side traverse positions (X2, Y2, 22, A2) in TUNNEL coordinates. 

! Modi ( * ) TCS8 transmitting side traverse positions in MODEL coordinates. 

; Mod2 (*) TCS8 receiving side traverse positions in MODEL coordinates. 

COM /Color 1/ Clear, Black, Red, Yel low, Green, Cyan, Blue, Magenta 
COM /Color2/ White , 01 i ve, Aqua, Roya 1 , Maroon, Brick, Brown, Gray 

PRINT PEN Red ! Print the traverse positions with red text. 

PRINT CHR$ (128) ;CHR$ (129) ; ! Print using inverse video text. 

PRINT TABXY (52,1) ; “ 

PRINT TABXY <52, 2) TUN1 TUN 2 MODI M0D2 " 

PRINT TABXY (52,3) ; " 

PRINT TABXY (52, 4) ? 

PRINT USING "l,K, 4 (M3D.4D) ,X";“ X Tunl (1 ), Tun2 ( 1 ), Modi ( 1 ), Mod2 ( 1) 

PRINT TABXY (52,5); 

PRINT USING “#, K, 4 (M3D. 4D) , X“; " Y: " , Tunl (2 ) , Tun2 (2 ) , Modi (2) , Mod2 (2) 

PRINT TABXY (52, 6) ; 

PRINT USING "# , K, 4 (M3D . 4D) , X"; " Z : “ , Tunl ( 3 ) , Tun2 ( 3) , Modi (3 ) , Mod2 < 3) 

PRINT TABXY (52,7) ; 

PRINT USING "#, K, 4 (M3D.4D) ,X";“ A:", Tunl (4) ,Tun2(4) ,Modl (4) ,Mod2 (4) 

PRINT TABXY (52, 8) 

PRINT CHRS (128 ) ; I Turn off inverse video. 

PRINT PEN Black ! Set printing color to black. 
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1404 5 

14050 TcsSmove: 

14055 

14060 

14065 

14070 

14075 

14080 

14085 

14090 

14095 

14100 

14105 

14110 

14115 

14120 

14125 

14130 

14135 

14140 

14145 

14150 

14155 

14160 

14165 

14170 

14175 

14180 

14185 

14190 

14195 

14200 

14205 

14210 

14215 

14220 

14225 

14230 

14235 

14240 

14245 

14250 

14255 

14260 

14265 

14270 

14275 

14280 

14285 

14290 

14295 

14300 

14305 

14310 

14315 

14320 

14325 

14330 

14335 

14340 

14345 

14350 

14355 

14360 

14365 

14370 

14375 

14380 

14385 

14390 

14395 

14400 

14405 

14410 

14415 

14420 

14425 

14430 

14435 

14440 


SUB^TcsBmove (0TcsB, Tunl ( *) , Tun 2 < *) , Modi ( * ) , Mod2 (*) , Tun2mod (*> , Mod2tun<* ) , SideS, Coor $, ModeS, K, Movement) 

DeS= Thl s' subprogram allows for the movement of the probe volume and 

two coordinate systems. The two coordinate systems implemented are the TUNNEL and the MODEL 
coordinate systems. Two movements modes are available. The first movement mode makes moves 
relative to the current position. The second movement mode makes moves to an absolut 
position. Both the transmitting side and receiving side traverses can be moved in tandem 
or separately. 

VarlableS: TCS8 transmitclnq slde traverse positions (XI. Yl. tt. All In TUNNEL coordinates. 

TCS8 receiving side traverse positions (X2. Y2, Z2 . A2) in TUNNEL coordinates. 

TCS8 transmitting side traverse positions in MODEL coordinates. 

TCS8 receiving side traverse positions in MODEL coordinates. 

Coordinate system transformation matrix for converting TUNNEL to MODEL. 
Coordinate system transformation matrix for converting MODEL to TUNNEL. 
Indicates which sides are to be moved: 

Tx : Transmitting side only. 

Rx : Receiving side only. 

Tx 4 Rx : Both sides together. 

Indicates which coordinate system the movement is to be made in: 

TUNNEL : TUNNEL coordinates. 

MODEL : MODEL coordinates. 

Indicates which movement mode is to be completed: 

RELATIVE: Movements are relative to current positions. 

ABSOLUTE: Movements are to absolute positions. 

Indicates which axis of the four axes is to be moved. 

Indicates the desired movement for the selected axis. 

Array of viewed TCS8 "Initialized" parameters. 

Array of viewed TCS8 "Currents On" parameters. 


Tunl (*> 
Tun2 (*) 
Modi (*) 

Mod 2 ( * ) 
Tun2mod ( *) 
Mod2t un ( * ) 
SideS 


CoorS 


ModeS 


K 


Movement 
I (*) 

C(*) 

OPTION BASE 1 

DIM LS [100 ) . 

! If all of the channels have not yet been initialized, then do so now. 

REAL Move (8, 2) , I (8) ,C(8) 

OUTPUT 0Tcs8 USING "K,/";"VI0 H 
ENTER 0Tcs8 USING "8(K)-;I(*) 

IF SUM (I) <>8 THEN OUTPUT 0Tcs8 USING "K, /";"SI0" 

! If all of the channels do not have their currents turned on, then do so now. 

OUTPUT 8Tcs8 USING "K,/";"VC0" 

ENTER 0Tcs8 USING "8<K)";C(*> 

IF SUM (C) <>8 THEN OUTPUT 0Tcs8 USING " K, / " ; "SCO : 1 , " 

! If the movement mode is to be RELATIVE, then clear all of the previously read positions. 
IE ModeS=" RELATIVE" THEN 
MAT Tunl* (0) 

MAT Tun2= (0) 

MAT Modl= (0) 

MAT Mod2= (0) 

END IF 

! Set the new Tunl(*) and Tun2{*) position arrays. 

SELECT CoorS 
CASE "MODEL" 

Modi <K) =Movement 
Mod2 (K) ^Movement 

REDIM Tunl (1:3) ,Tun2 (1:3) , Modi (1:3) ,Mod2 (1:3) 

IF POS (SideS, "Tx") THEN MAT Tunl* Mod2tun*Modl 
IF POS (SideS, "Rx") THEN MAT Tun2 = Mod2tun*Mod2 
REDIM Tunl (1:4) ,Tun2 (1:4) , Modi (1:4) ,Mod2(l:4) 

CASE "TUNNEL" 

IF POS (SideS, "Tx") THEN Tunl (K) ^Movement 
IF POS (SideS, "Rx") THEN Tun2 (K) ^Movement 
END SELECT 

! File the move array. 

FOR Channe 1=1 TO 8 

Move (Channel, 1) =Channel 
NEXT Channel 
Move (1,2) *Tunl (1 ) 

Move (2, 2) =Tun2 (1) 

Move (3 , 2) =Tunl (2) 

Move (4,2) *Tun2 (2) 

Move ( 5 , 2) =Tunl (3) 

Move (6,2) =Tun2 (3) 

Move (7,2) =Tunl (4) 

Move (8,2) =Tun2 ( 4 ) 

! Initiate the start of the move. 

IF ModeS =" ABSOLUTE" THEN OUTPUT 0Tcs8 USING 14 425; "MA" , Move ( * > 

IF Mode $=" RELATIVE" THEN OUTPUT 0Tcs8 USING 14425; "MR" , Move (* ) 

IMAGE K, 8 { D, " : " , S2D. 5D, ","),/ 

! The TCS8 will return the new updated positions only after the move is comp it*, . 

ENTER 0Tcs8 USING "8 (K) " ; Tunl ( 1 ) , Tun2 ( 1 ) , Tunl < 2) , Tun2 (2) , Tunl (3 ) , Tun2 ( 3 , un 
! Turn off the motor drive currents. 
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144 4 5 
14450 
14455 

14460 Ctm: 

14465 
14470 
14475 
14480 
14485 
144 90 
14495 
14500 
14505 
14510 
14515 
14520 
14525 
14530 
14535 
14540 
14545 
14550 
14555 
14560 
14565 
14570 
14575 
14580 
14585 
14590 
14595 
14600 
14605 
14610 
14615 
14620 
14625 
14630 
14635 
14640 
14645 
14650 
14655 
14660 
14665 
14670 
14675 
14680 
14685 
14690 
14695 
14700 
14705 
14710 
14715 
14720 
14725 
14730 
14735 
14740 
14745 
14750 

14755 Color: 

14760 Crt_i nit : 

14765 

14770 

14775 

14780 

14785 

14790 

14795 

14800 

14805 

14810 

14815 

14820 

14825 

14830 

14835 

14840 Color: 


OUTPUT @Tcs8 USING "K, /" ; M SCO : 0, " 

SUBEND 

! t r j ; j [ r t t t j t t t | j j r t j i i t i | j t t j r t t j i j i j | t m t j j j j | j t j i i t t ; m j j i ; m » i » ; j t [ j | f j t t i ; t j i i j ; t j t j j t ; t j <!!»;!!!!!!! 
SUB Ctm (Alpha (*) , Tun2mod(*) ,Mod2tun(») ) 

! Description: 

! This subprogram computes directly the MODEL to TUNNEL coordinate system transformation 

! matrix M Mod2t un ( * ) “ . However, the desired coordinate system transformation matrix •*Tun2mod H Is 

! required. It is the matrix inverse of M Mod2tun''. 

! Variables: 

! Alpha{*} Angles of attack, yaw, and roll. 

! Tl{*) Partial coordinate system transformation matrix for converting from MODEL to 

! TUNNEL coordinates. Takes into account a model at angle of attack. 

! T2{*) Partial coordinate system transformation matrix for converting from MODEL to 

! TUNNEL coordinates. Takes into account a model at angle of yaw. 

! T3{*) Partial coordinate system transformation matrix for converting from MODEL to 

! TUNNEL coordinates. Takes into account a model at angle of roll. 

! Mod2tun(*) Coordinate system transformation matrix for converting from MODEL to TUNNEL. 

! Tun2mod(*) Coordinate system transformation matrix for converting from TUNNEL to MODEL. 

OPTION BASE 1 

REAL T1 (3, 3) , T2 (3, 3) ,T3{3, 3) , Temp (3, 3) 

! Define 1st coordinate transformation matrix for Mod2tun. 

! Rotation in the x-y plane about the z-axis. 

! Used when model is at an angle of attack. 

T1 (1,1) =COS (Alpha (1) ) 

T1 (1,2) -SIN (Alpha (1) ) 

T1 (1,3) =0 

T1 (2,1) =~SIN (Alpha (1) ) 

T1 (2, 2) =C0S (Alpha (1) ) 

T1 (2, 3 ) *0 
T1 (3, 1 } =0 
T1 (3,2) =0 
T1 (3, 3) =1 

! Define 2nd coordinate transformation matrix for Mod2tun. 

! Rotation in the x-z plane about the y-axis. 

! Used when model is at an angle of yaw. 

T2 (1,1) =C0S (Alpha (2) ) 

T2 (1,2) =0 

T2 (1, 3 ) =-S IN (Alpha (2) ) 

T2 (2,1) =0 
T2 (2,2) =1 
T2 (2, 3) =0 

T2 ( 3, 1 ) =SIN (Alpha (2) ) 

T2 (3,2) *0 

T2 (3,3) =C0S (Alpha (2) ) 

! Define 3rd coordinate transformation matrix for Mod2tun. 

! Rotation in the y-z plane about the x-axis. 

! Used when model is at an angle of roll. 

T3 ( 1 , 1 ) *1 
T3 (1,2) =0 
T3 (1,3) =0 
T3 (2, 1) =0 

T3 (2,2) =COS(Alpha(3) ) 

T3 (2,3) =SIN (Alpha (3) ) 

T3 (3,1) =0 

T3{3,2) =-SIN (Alpha (3) ) 

T3 (3,3) =C0S(Alpha(3) ) 

! Mod2tun converts MODEL coordinates to TUNNEL coordinates. 

MAT Temp= T2*T1 
MAT Mod2tun= T3*Temp 

! Tun2mod converts TUNNEL coordinates to MODEL coordinates. 

MAT Tun2mod= INV(Mod2tun) 

SUBEND 

i ! j I j i ; j ! ! r i i | t t j j j j i i j j i j j i i t j j j i i j » ! » j t t ! j ! ! t » i j t j i j m j » i j j j j r i | j i m j j j t j j i | j i j j t j I ; r j | m t » i j j j i j j r j j ! ; j 

SUB Crt_init 

! Description: 

! This subprogram initializes the CRT as the plotting device and clears both the alpha 

! numerics and graphics part of the CRT. The color map for both of the alpha numeric printing 

! plains and the graphics drawing plains are defined here. 

COM /Colorl/ Clear, Black, Red, Yellow, Green, Cyan, Blue, Magenta 
COM /Color2/ White, Olive, Aqua, Roya 1, Maroon, Brick, Brown, Gray 

CALL Color ! Define the color maps for the alpha numeric and the graphics plains. 

'CALL Map ! Draw the color map. 

(CALL Dump ! Dump the color map to the printer. 

PRINTER IS CRT ! Select the CRT as the printing device. 

PRINTALL IS CRT ! Send ERROR and DISP messages to CRT. 

KEY LABELS OFF ! Hide the special function key labels for fl..fB. 

CLEAR SCREEN ! Clear the alpha numeric printing plains of the CRT. 

GCLEAR ! Clear the graphics drawing plains of the CRT. 

SUBEND 
SUB Color 
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14845 

14850 

14855 

14860 

14865 

14870 

14875 

14880 

14885 

148 90 

14895 

14900 

14905 

14910 

14915 

14920 

14925 

14930 

14935 

14940 

14945 

14950 

14955 

14960 

14965 

14970 

14975 

14980 

14985 

14990 

14995 

15000 

15005 

15010 

15015 

15020 

15025 

15030 

15035 

15040 

15045 

15050 

15055 

150 60 

15065 Map: 

15070 

15075 

15080 

15085 

15090 

15095 

15100 

15105 

15110 

15115 

15120 

15125 

15130 

15135 

15140 

15145 

15150 

15155 

15160 

15165 

15170 

15175 

15180 

15185 

15190 

15195 Dump: 

15200 

15205 

15210 

15215 

15220 

15225 

15230 

15235 

15240 


Description: . ,, . . 

This subprogram defines the color map for both alpha numeric printing and graphics drawing 
Four of eight plains are dedicated to alpha numerics to provide for sixteen colors. The other 
four plains are dedicated to graphics to provide for sixteen colors. 

COM /Co lor 1 / Clear , Black, Red, Yellow, Green, Cyan, Blue, Magenta 
COM /Color2/ White, Olive, Aqua, Royal , Maroon, Brick, Brown, Gray 
DIM Map (255, 2) 

RFAD^C lear^Black, Red, Yellow, Green, Cyan, Blue, Magenta, White, 01 ive. Aqua , Royal , Maroon, Brick , Brown, Gray 
DATA 0, 1. 2, 3, 4. 5, 6, 7, 8. 9, 10 11, 2, 13, 

! Select the CRT as the plotting device. 


PLOTTER IS CRT , "INTERNAL" ; COLOR MAP 

CONTROL CRT, 14; 3 

SET PEN 0 INTENSITY 1,1,1 

SET PEN 1 INTENSITY 0,0,0 

SET PEN 8 INTENSITY 1,1,1 

SET PEN 14 INTENSITY 26/30,16/30,8/30 

SET PEN 15 INTENSITY .6, .6,. 6 

GESCAPE CRT, 2; Map ( * } 

Gmask(0) =IVAL ( "11110000*, 2) 

Gmask ( 1 } =IVAL ( H 11110000 M ,2) 

GESCAPE CRT, 7, Gmask {*) 

SET ALPHA MASK IVAL ( “00001 111 N , 2) 

SET DISPLAY MASK I VAL ( *00001111", 2) 

GESCAPE CRT, 4 

GCLEAR 

CLEAR SCREEN 


GRAPHICS ON 

! Copy the alpha colors to the graph colors (use the same 
FOR Alpha=0 TO 15 

FOR Graph=0 TO 15 

Pen“16*Graph+Alpha 

Co lor=Graph* (Alpha=0) +Alpha* (Alpha<>0) 

IF Alpha=Graph THEN Color=Black*(Alpha>l) 

MAT Map ( Pen, * ) = Map(Color,*) 

SET PEN Pen INTENSITY Map < Pen, 0) , Map (Pen, 1] , Map (Pen, 2) 
NEXT Graph 


Set pen 0 equal to clear (white) . 

Set pen 1 equal to black. 

Set pen 8 equal to white. 

Set pen 14 equal to brown. 

Set pen 15 equal to gray. 

Read RGB intensity for pens 0 to 255. 

Define graphics write enable mask. 

Define graphics display enable mask. 

Set graphics write « display enable masks. 

Set alpha write enable mask. 

Set alpha display enable mask. 

Select normal dominant writing mode. 

Clear the graphics screen. 

Clear the alpha screen. 

Turn graphics on. 

16 alpha colors for graph colors.) 


! Define pen number for Alpha:Graph combination. 
! Choose the color for the 
t AlphaiGraph combination. 

! Get the RGB intensities for the color. 

! Set the RGB for the pen. 


Select white for area fills. 

Select black for line drawing and labeling. 

Select black for printing. 

Select blue for special function key labels. 
Select black for printing. 

Hide the special function key labels for fl,.f8. 


NEXT Alpha 
! AREA PEN White 
! PEN Black 

ALPHA PEN Black 
KEY LABELS PEN Blue 
PRINT PEN Black 
KEY LABELS OFF 
SUBEND 
SUB Map 

Description: 

This subprogram displays the color map on the CRT. 

superimposed on top of the graphics plains to show the dominance Interaction of alpha and 
graphics colors being printed and drawn on top of each other. 

COM /Colorl/ Clear , Black, Red, Yel low, Green, Cyan, Blue, Magenta 

COM /Color2/ White , Olive, Aqua, Roya 1 , Maroon, Brick, Brown, Gray 
VIEWPORT 25/10.23, (25+ 1 6* 4 * 1 0) /10 . 2 3 , 2 10/1 0 . 23, 850/10 . 23 
WINDOW 0,16, 16, 0 


The sixteen colors for the alpha plains are 


Pen=0 

FOR Alpha=0 TO 15 

FOR Graph=0 TO 15 

AREA PEN 1 6*Graph+ Alpha 
PEN 1 6 *Black 
MOVE Alpha, Graph 
RECTANGLE 1 , 1,’ FILL , EDGE 
PRINT PEN Alpha 

PRINT TABXY (4 + 4*Alpha, 10 + 2*Graph) ; 
PRINT USING " ZZZ" ; Pen 


Pen«Pen+l 
NEXT Graph 
NEXT Alpha 
ALPHA PEN Black 
KEY LABELS PEN Blue 
PRINT PEN Black 
SUBEND 


This facilitates 


SUB Dump 

Description: 

This subprogram dumps the graphics contents of the CRT to the printer. 

the printing of the histogram and profile plots. The CSUB binary subprogram is used to 
transfer the colorized plots to the color paint jet printer. 


OUTPUT PRT USING "l,3 N 

IF NOT ( INMEM ( * , Gdump_colored*') ) THEN LOADSUB ALL FROM •’CDUMP6’' 
IF NOT (INMEM ( "Bstore" ) ) THEN LOADSUB ALL FROM "BPL0T6" 

IF NOT (INMEM( "Bload”) ) THEN LOADSUB ALL FROM "BPLOT6** 

! OUTPUT PRT USING "#,5/** 


15245 
15250 
15255 
152 60 
15265 
15270 
15275 
15280 
15285 
15290 
15295 
15300 
15305 
15310 
15315 
15320 
15325 
15330 
15335 
15340 
15345 
15350 
15355 
15360 
15365 
15370 
15375 
15380 
15385 

15390 

15395 

15400 

15405 

15410 

15415 

15420 

15425 

15430 

15435 

15440 

15445 

15450 

15455 

15460 

15465 

15470 

15475 

15480 

15485 

154 90 
15495 
15500 
15505 
15510 
15515 
15520 
15525 
15530 
15535 
15540 
15545 
15550 
15555 
15560 
15565 
15570 
15575 
15580 
15585 

155 90 
15595 
15600 
15605 
15610 
15615 
15620 
15625 
15630 
15635 


! CALL Gdump_colored (CRT , PRT, "NORMAL" , 180, "OFF", "DITHER" ) 
(CALL Gdump_colored (CRT , PRT, "ROTATE", 90, "ON", "ERRDIF") 
CALL Gdump_colored (CRT, PRT, "NORMAL" , 180, "ON" , "DITHER") 
SUBEND 


Read_symbols: 


Graph : 

Setup_graph: 


SUB Re ad_symbo Is (Symbols (*) ) 

Descript ion : 

This subprogram defines 5 geometric symbols to be used with the SYMBOL statement. The 
symbols provided are as follows: Square, Octagon, Diamond, and Triangles (upwards & downwards 

pointing triangles) . All of the symbols have a dot added to their center. 

Variables: 

Symbols (*) Array of Symbol arrays. Each symbol arrays contains a distinct geometric symbol. 
Symbol (*) Array of coordinates which when connected produce a distinct geometric symbol. 

Dot(*) Array of coordinates which produce a dot. The dot symbol is added to all symbols. 

Noc The number of coordinates in a symbol. 

S Used to Index the Symbols array. 

OPTION BASE 1 

REAL Symbol (20,3) , Dot (2, 3) 

READ Dot <*} 

FOR S-l TO 5 
READ Noc 

REDIM Symbol (Noc, 3) 

READ Symbol (*> 

MAT Symbols (S, 1 :Noc, *) = Symbol 
MAT Symbols (S, Noc+1 :Noc+2 , *) - Dot 
Symbols (S, 0,1) =Noc+2 


6.5,11.5,-!, 


' f t tl I t I I l 



NEXT 

S 







Dot : 

DATA 


4.5, 7.5, -2, 4.5, 7.5, 

-1 





Square: 

DATA 

5, 

0.5, 3.5, -2, 8.5, 3.5, 

-1, 

8.5, 11. 5,-1, 

0.5, 11. 5,-1, 

0.5, 3. 5, 

-1 

Octagon: 

DATA 

9, 

0.5, 5. 5, -2, 2.5, 3.5, 

— 1 , 

6.5, 3.5, -1, 

8.5, 5. 5,-1, 

8.5, 9. 5, 

-1 




2. 5, 11. 5,-1, 0.5, 9.5 

,-l, 

0.5, 5.5, -1 




Diamond: 

DATA 

5, 

-0.5, 7.5, -2, 4.5, 2.5, 

-1, 

9.5, 7.5, -1, 

4.5,12.5,-!, 

-0.5, 7. 5, 

-1 

Ut r iangle : 

DATA 

4, 

0.5, 4.5, -2, 8.5, 4.5, 

-1, 

4.5, 13. 5,-1, 

0.5, 4. 5,-1 



Dtriangle : 

DATA 

4, 

0.5, 10. 5, -2, 8.5,10.5, 

-1, 

4.5, 1.5, -1, 

0.5,10.5,-! 




SUBEND 

1 I 1 I I I I I t 1 
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I II I t I I I t t 


t I t t T I t t 1 I I I 


! 1 I M t t 1 I T t I 1 


t I I I I M t 1 


SUB Setup_graph (Array ( *) , ImageS (*) , Paxis, Symbols (*) ) 

Description : 

This subprogram sets up nine empty plots on the CRT screen. Four plots are profile plots 
while the other five plots are histogram plots. The profile and histogram plots provided are 


as follows: 


Graph# 

1 

2 

3 

4 

5 

6 

7 

8 
9 


Type 

Histogram #1 
Histogram #2 
Histogram #3 
Histogram #4 
Histogram #5 
Profile Plot 
Profile Plot 
Profile Plot 
Profile Plot 


Description 

U frequency data in MHz. 

V frequency data in MHz. 

W frequency data in MHz. 

Analog Channel #1 data in volts. 

Analog Channel #2 data in volts. 

Velocity Averages £ SDVs vs. Traverse Position. 
Voltage Averages £ SDVs vs. Traverse Position. 
Temperature Average £ SDV vs. Traverse Position. 
Velocity Shear Stress Terms vs. Traverse Position. 


Variables : 
Array ( * ) 
ImageS ( *) 
Wndw (* ) 
Vwprt < * > 
Xdiv (*) 

Ydi v (*) 
XlabelS <*) 
YlabelS (*) 
Titles (*) 
XimageS ( * ) 
YimageS (*> 
Legends ( * ) 
Symbols ( * ) 
G 
I 


Array containing the plot positions and scales. 

String array containing image formats for the axes labeling. 

Array containing the plot's scales. 

Array containing the plot's CRT position. 

Array containing the number of X divisions for the plot's X axis. 

Array containing the number of Y divisions for the plot's Y axis. 

String array containing labels for the X axis. 

String array containing labels for the Y axis. 

String array containing labels for the Plots. 

String array containing image formats for the X axis labeling. 

String array containing image formats for the Y axis labeling. 

String array containing labels for each symbol in a profile plot. 

Array of Symbol arrays. Each symbol arrays contains a distinct geometric symbol. 
Used as an index to the above arrays. Specifies one of nine plots. 

Used an an index to the LegendS array. 


OPTION BASE 1 

COM /Graphl/ Wndw ( • ) , Vwprt (*) , Xdiv (*) , Ydiv<*) , XlabelS (*) , YlabelS (*> 
COM /Graph2/ Tit le$ (*>, XimageS (*), YimageS (*), LegendS <* ) 

COM /Color 1/ Clear, Black, Red, Yellow, Green, Cyan, Blue, Magenta 
COM /Color2/ White, Olive, Aqua, Royal, Maroon, Brick, Brown, Gray 
MAT Wndw Array (61 : 69, * ) 

MAT Vwprt= Array (71 : 79, * ) 

MAT Xdiv (1 : 5) - Array (81 :85 , 1) 

MAT Xdiv { 6 : 9) = Array (81 : 84 , 3) 

MAT Ydiv (1 : 5) = Array (81 : 85 , 2) 

MAT Ydiv ( 6 : 9) = Array (81 : 84 , 4) 

MAT Ximage$= ImageS ( 61 : 69, 1) 

MAT Yimage$= ImageS (61 : 69, 3) 

FOR G=1 TO 9 

READ G, XlabelS (G) 
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15640 

FOR 

1 = 1 TO SIZE (LegendS, 2) 

15645 


READ LegendS (G, I) 

15650 

NEXT 

I 

15655 

SELECT G 

15660 

CASE 

, 1 TO 5 

15665 


Ylabel S (G) ="" 

15670 

CASE 

; 6 TO 9 

15675 


Ylabel $ (G) =CHR$ (NUMCX") +Paxis- 

15680 

END 

SELECT 

15685 

CALL Set_up (G, Symbols <*) ) 

15690 

NEXT G 


15695 

SUBEXIT 


15700 

! G, 

X axis Label 

15705 

DATA 1, 

MM 

15710 

DATA 2, 

MM 

15715 

DATA 3, 

MM 

15720 

DATA 4, 

MM 

15725 

DATA 5, 

MM 

15730 

DATA 6, 

"U f V,U*,V» /Uinf" 

15735 

DATA 7, 

"A, B, A 1 , B ' volts’* 

15740 

DATA 8, 

M Tt:dR Uinf :m/s Uedge:m/s" 

15745 

DATA 9, 

"Shear Stress Terms / Uinf A 2" 

15750 

SUBEND 



15755 Set_ 
15760 
15765 
15770 
15775 
15780 
15785 
15790 
15795 
15800 
15805 
15810 
15815 
15820 
15825 
15830 
15835 
15840 
15845 
15850 
15855 
158 60 
15865 
15870 
15875 
15880 
15885 
15890 
15895 
15900 
15905 
15910 
15915 
15920 
15925 
15930 
15935 
15940 
15945 
15950 
15955 
15960 
15965 
15970 
15975 
15980 
15985 
15990 
15995 
16000 
16005 
16010 
16015 
16020 
16025 
16030 
16035 


Symbol #1...S labels 


"V 1 


/Uinf H 
volts** 


"Tt:dR", "Uinf**, "Uedge" 
•U'V'/V'W'^/W'U' /Uinf A 2" 


SUB Set_up (G, Symbols (*) > 

Description : 

This subprogram clears and then redraws one of nine empty plots on the CRT screen. 
Variables : 


axis, 
axis . 


Wndw(*) Array containing the plot's scales. 

Vwprt(*) Array containing the plot's CRT position. 

Xdiv (*) Array containing the number of X divisions for the plot s 

Ydiv(*) Array containing the number of Y divisions for the plot's 

Xlabel$(*) String array containing labels for the X axis. 

Ylabel$(M String array containing labels for the Y axis. 

Title$ (*) String array containing labels for the Plots. 

XimageS (*) String array containing image formats for the X axis labeling. 

Yimage$(*) String array containing image formats for the Y axis labeling. 

LegendS ( * ) String array containing labels for each symbol in a profile plot. 

Symbols < * ) Array of Symbol arrays. Each symbol arrays contains a distinct geometric symbol. 

G Used as an index to the above arrays. Specifies one of nine plots. 

OPTION BASE 1 

COM /G raphl / Wndw{*) ,Vwprt <*) ,Xdiv(*) , Ydiv(*) ,Xlabel$(M ,Ylabel$(*) 

COM /Graph2/ Tit le$ (*), XimageS (*), YimageS (*), Legends (* ) 

COM /Color 1/ Clear, Black, Red, Yellow, Green, Cyan, Blue, Magenta 
COM /Color2/ White, Olive, Aqua, Royal , Maroon, Brick, Brown, Gray 
DIM L$ [80] 

ON ERROR CALL Error 

CSIZE 100*15/1023 ! Select a character labeling size of 15 pixels high. 

! Define the values for the left f right , bottom, top ends of the horizontal and vertical scales. 
Xmin=Wndw (G, 1) 

Xmax=Wndw (G, 2) 

Ymin=Wndw ( G, 3) 

Ymax-Wndw (G, 4 ) 

! Define the values for the left , right , bottom, top pixel locations for the plot. 

Xpixl=Vwprt (G, 1> 

Xpix2=Vwprt (G, 2) 

Ypixl=Vwprt (G, 3) 

Ypix2=Vwprt <G, 4) 

! Define the step size between grid lines, axis tick marks, and axis labels. 

Xstep= (Xmax-Xmin) /Xdiv (G) 

Ystep= { Ymax-Ymin) /Ydiv (G) 

! Define the amount of scale X and Y which equals the size of one pixel (picture element) . 

Xpixel = (Xmax-Xmin) / (Xpix2-Xpixl) 

Ypixel = (Ymax-Ymin) / ( Ypix2- Ypixl ) 

! Clear the plots back ground & plot area and also draw the plots borders, grids, and axes. 

AREA PEN 1 6*White 
! GOSUB Clear_screen 
AREA PEN 16*White 
GOSUB Background 
AREA PEN 1 6*White 
GOSUB Plot_area 
GOSUB Scale 
PEN 1 6*Blue 
GOSUB Axes 
GOSUB Grid 
GOSUB Scale 
PEN 1 6*Black 
CLIP OFF 

! Draw the X and Y axis labels. 

GOSUB Ylabel 
GOSUB Xlabel 
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16040 

16045 

16050 

16055 

1 6060 Clear_screen: 
160 65 
16070 
16075 
16080 
16085 
160 90 
160 95 

16100 Back_ground : 

16105 

16110 

16115 

16120 

16125 

16130 

16135 

16140 Plot_area: 

16145 

16150 

16155 

16160 

16165 

16170 

16175 

16180 Axes: 

16185 

16190 

16195 

16200 

16205 

16210 

16215 

16220 

16225 

16230 

16235 

16240 

16245 

16250 Grid: 

16255 

16260 

16265 

16270 

16275 

16280 

16285 Scale: 

16290 

16295 

16300 X label : 

16305 

16310 

16315 

16320 

16325 

16330 

16335 

16340 

16345 

16350 

16355 

16360 

16365 

16370 

16375 

16380 

16385 

16390 

16395 

16400 

16405 Ylabel: 

16410 
16415 
16420 
16425 
164 30 
16435 


! Create a legend to define which symbol is used with which data. 

CALL Legend (G, Symbols (*) ) 

OFF ERROR 
SUBEXIT 

! This subroutine fills the entire CRT screen with the specified color. 

VIEWPORT 0/10.23, 1279/10.23, 0/10.23, 1023/10.23 
WINDOW -l.E+9, l.E+9,-1 .E+9, l.E+9 
MOVE 0,0 

WINDOW 0, 1279, 0, 1023 
MOVE 0,0 

RECTANGLE 1279, 1023, FILL 
RETURN 

! This subroutine clears the plot's background. 

VIEWPORT (Xpixl-80) /10.23, (Xpix2 + 1 5) /1 0 . 23 , ( Ypixl-33) / 10 . 23, (Ypix2+10) / 10 .23 
WINDOW -l.E+9, l.E+9, -l.E+9, l.E+9 
MOVE 0,0 

WINDOW Xml n, Xmax, Ymin, Ymax 
MOVE Xmin, Ymin 

RECTANGLE (Xmax-Xmin) , (Ymax-Ymin) , FILL 
RETURN 

! This subroutine selects part of the CRT plot area and give it scales for the X and Y axes 
VIEWPORT Xpixl/10.23,Xpix2/10.23, Ypixl/10.23, Ypix2/10.23 
WINDOW -l.E+9, l.E+9, -l.E+9, l.E+9 
MOVE 0,0 

WINDOW Xmi n, Xmax, Ymin, Ymax 
MOVE Xmin, Ymin 

RECTANGLE (Xmax-Xmin), (Ymax-Ymin} , FILL 
RETURN 

! This subroutine draws the plot's X and Y axes. 

VIEWPORT (Xpixl-1) /10.23, <Xpix2+l) /10.23, (Ypixl-6} /10.23, (Ypixl-1) /10.23 
WINDOW Xmi n, Xmax, 1 , 0 
AXES Xstep, 2, Xmin, 0, 1, 1,1 

VIEWPORT (Xpixl-1) /10 . 23, <Xpix2+l) /10.23, (Ypix2+1) /10.23, (Ypix2+6) /10.23 
WINDOW Xmin, Xmax, 0, 1 
AXES Xstep, 2, Xmin, 0,1, 1,1 

VIEWPORT (Xpixl-6) /10.23, (Xpixl-1) /10.23, (Ypixl-1) /10.23, ( Ypix2+1 ) / 10 . 2 3 
WINDOW 1,0, Ymin, Ymax 
AXES 2, Ystep, 0, Ymin, 1, 1, 1 

VIEWPORT (Xpix2 + 1 ) /1 0.23, <Xpix2 + 6) /10.23, (Ypixl-1) /10.23, ( Ypix2 + 1 ) / 10 . 2 3 
WINDOW 0, 1, Ymin, Ymax 
AXES 2, Ystep, 0, Ymin, 1, 1,1 
RETURN 

! This subroutine draws the plot's X and Y grid lines. 

VIEWPORT (Xpixl-1) /10.23, (Xpix2+1) /10.23, (Ypixl-1) /10.23, ( Ypix2+1) /10.23 
WINDOW Xmi n, Xmax, Ymin, Ymax 
LINE TYPE 4 

GRID Xstep, Ystep, Xmin, Ymin 

LINE TYPE 1 

RETURN 

VIEWPORT Xpixl/10.23,Xpix2/10.23, Ypixl/10.23, Ypix2/10. 23 

WINDOW Xmi n, Xmax, Ymin, Ymax 

RETURN 

! This subroutine labels the X axis and also names the X axis. 

LORG 5 

FOR X=Xmin TO Xmax+Xstep/1 00 STEP Xstep 
MOVE X, Ymin-14*Ypixel 
OUTPUT LS USING Ximage$(G);X 
LABEL TRIMS (L$) 

NEXT X 

MOVE (Xmin+Xmax) /2, Ymin-27*Ypixel 
! LABEL XlabelS (G) 

RETURN 
IF G=8 THEN 
LORG 5 
DEG 

LDIR 45 

MOVE (Xmin+Xmax) /2, (Ymax+Ymin) /2 
CSIZE 100*100/1023 
LABEL "VOID" 

CSIZE 100*15/1023 
LDIR 0 
END IF 
RETURN 

! This subroutine labels the Y axis and also names the Y axis. 

LORG 8 
Len=0 

FOR Y=Ymin TO Ymax+Ystep/100 STEP Ystep 
MOVE Xmin-7*Xpixel , Y 
OUTPUT LS USING Yimage$(G);Y 
LABEL TRIMS (LS) 
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16440 

16445 

16450 

16455 

164 60 
16465 
16470 

16475 Legend: 

16480 

16485 

16490 

16495 

16500 

16505 

16510 

16515 

16520 

16525 

16530 

16535 

16540 

16545 

16550 

16555 

16560 

16565 

165 70 
165 75 
16580 
16585 
16590 
16595 
16600 
16605 
16610 
16615 
16620 
16625 
16630 
16635 
16640 
16645 
16650 
16655 
16660 
16665 
16670 
16675 
16680 
16685 
16690 
16695 
16700 
16705 
16710 
16715 
16720 
16725 
16730 
16735 
16740 
16745 
16750 
167 55 
16760 
16765 
16770 
16775 
16780 
16785 
16790 
16795 
16800 
16805 
16810 
16815 
16820 
16825 
16830 

16835 Hlsto : 


Len=MAX (Len, LEN (TRIMS (LS) ) ) 

NEXT Y 
LORG 5 

MOVE Xm in- (18+7* Len) *Xpixel , (Ymin+Ymax)/2 !+20*Ypixel 

LABEL Ylabel $ (G) 

RETURN 

SUBEND 


SUB Legend (G f Symbols (*) ) 

! Description: 

! This subprogram produces a legend within one of the nine plots on the CRT screen. 

! Variables: 

! Wndw ( * ) 

! Vwprt ( * ) 

! Xdi v ( *) 

! Ydi v ( *) 

! XlabelS { * ) 

! Ylabel $ ( * ) 

! Titles ( *) 

! XimageS ( * ) 

! YimageS (*) 

l LegendS (*) 

! Symbols (*) 

! Symbol (*) 

! G 

! S 

! Noc 

! Len 

OPTION BASE 1 

COM /Graph 1/ Wndw<*) , Vwprt (*> , Xdiv(M , Ydiv(*) , XlabelS (*) , Ylabel$(*> 

COM /Graph2/ Tit le$ (*) , XimageS {*) , YimageS (M , LegendS <* ) 

COM /Color 1/ Clear .Black, Red, Yellow, Green, Cyan, Blue, Magenta 
COM /Color 2/ White, Olive, Aqua, Royal, Maroon, Brick, Brown, Gray 
DIM Symbol (20, 3) 

VIEWPORT Vwprt (G, 1) /10 .23, Vwprt (G, 2) /I 0.23, Vwprt (G, 3) / 10. 2 3, Vwprt (G, 4) /10.23 
WINDOW Vwprt (G,l) , Vwprt (G, 2) , Vwprt (G, 3) ,Vwprt(G,4) 

CLIP OFF 

CSIZE 100*15/1023 ! Select a character labeling size of 15 pixels high. 

LORG 2 

! Calculate the total length of all of the symbol labels. 

Len = 0 

FOR S=1 TO SIZE (LegendS , 2) 

IF LEN (LegendS (G, S) ) THEN 

Len=Len+LEN (TRIMS (LegendS (G, S) ) ) +2.2 
END IF 
NEXT S 


Array containing the plot's scales. 

Array containing the plot's CRT position. 

Array containing the number of X divisions for the plot's X axis. 

Array containing the number of Y divisions for the plot's Y axis. 

String array containing labels for the X axis. 

String array containing labels for the Y axis. 

String array containing labels for the Plots. 

String array containing image formats for the X axis labeling. 

String array containing image formats for the Y axis labeling. 

String array containing labels for each symbol in a profile plot. 

Array of Symbol arrays. Each symbol arrays contains a distinct geometric symbol. 
Array of coordinates which when connected produce a distinct geometric symbol. 
Used as an index to the above arrays. Specifies one of nine plots. 

Used to index the LegendS array. 

The number of coordinates in a symbol. 

Total Length of all LegendS array elements. 


X= (Vwprt (G, 1) +Vwprt (G, 2) ) /2 
Y= (Vwprt (G, 3) +Vwprt (G, 4) ) /2 
MOVE X, Y 

X= (Vwprt (G, 1) + Vwprt (G, 2) ) /2-5*Len+10 
Y=Vwprt (G, 3) -28 

! For each symbol put up a sample symbol and its label . 

FOR S=1 TO SIZE (LegendS , 2) 

IF LEN (LegendS (G, S) ) =0 THEN 16825 
Noc=Symbols ( S, 0, 1 ) 

REDIM Symbol (Noc, 3) 

MAT Symbol = Symbols (S, 1 :Noc, *) 

! Define the colors for symbol filling and edge drawing. 


SELECT S 
CASE 1 

AREA PEN 1 6*Red 
PEN 1 6*Black 
CASE 2 

AREA PEN 16*Yellow 
PEN 16*Black 
CASE 3 

AREA PEN 1 6*Green 
PEN 16*Black 
CASE 4 

AREA PEN 1 6*B1 ue 
PEN 1 6*Black 
END SELECT 
MOVE X , Y 

SYMBOL Symbol (*}, FILL, EDGE 

X=X+12 

MOVE X, Y-l 

LABEL LegendS (G,S) 

X=X+10 *LEN (Legends (G, S) ) +10 
NEXT S 
SUBEND 


! Move to the place of next symbol. 

! Draw the next symbol . 

! Move the X placement to the right 12 pixels. 

! Move to the place of next label. 

! Draw the next label. 

! Move the X placement to the right 10+10*Len pixels 


i i t i I j t ! j j i i t i t t i i t t i j ; i t i i ; i i i j | t i t t j i t t t i j | i i t t | j m j 
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16840 Rt_histo: 
16845 
16850 
16855 
16860 
16865 
16870 
16875 
16880 
16885 
16890 
16895 
16900 
16905 
16910 
16915 
16920 
16925 
16930 
16935 
16940 
16945 
16950 
16955 
16960 
16965 
16970 
16975 
16980 
16985 
16990 
16995 
17000 
17005 
17010 
17015 
17020 
17025 
17030 
17035 
17040 
17045 
17050 
17055 
17060 
17065 
17070 
17075 
17080 
17085 
17090 
17095 
17100 
17105 
17110 
17115 
17120 
17125 
17130 
17135 
17140 
17145 
17150 
17155 
17160 
17165 
17170 
17175 

17180 Hsend: 
17185 

17190 Henter: 

17195 

17200 

17205 

17210 

17215 

17220 

17225 

17230 

17235 Hplot: 


SUB Rt_histo { @Lvdas, Symbols ( *) , Repeat, Kbd$) 

Description: 

This subprogram plots real time histograms within five of the nine plots on the CRT screen. 

The histogram data are acquired from the LVDAS over a specified acquisition time. 

Variables Defined in Main Program: 

Wndw ( *) , Vwprt <*) , Xdi v (*) , Ydi v ( *) , XlabelS (*) , YlabelS <*) , Tit le$ <*) , Ximage$ (*) , YimageS (*) , Legend* ( *) 
Local Variables: 

Histo(*) Array of bin numbers, old histogram bin heights, and new histogram bin heights. 

Nbins Number of bins in the Histo<*) . 

2*810 is the bin width of individual histogram vertical bars. 

Min Minimum value for histogram. Left side of histogram scale. 

Max Maximum value for histogram. right side of histogram scale. 

FI Upper 16bits of integerized Min. 

F2 Lower 16bits of integerized Min. 

A1 Upper 16bits of integerized histogram acquisition time. 

A2 Lower 16bits of integerized histogram acquisition time. 

Nnew Number of samples in the most up to date histogram. 

Nold Number of samples in the previous histogram. 

N(*) Number of samples for each histogram of the five separate channels. 

Channel Used to select the LVDAS channel that will be sampled for a histogram. 

Kw Converts Hz to MHz or raw data to volts. 

Window width of each vertical histogram bar. 

Histogram height of previous histogram at a particular bin. 

Histogram height of current histogram at a particular bin. 

Horizontal position of histogram rectangle. 

Vertical position of histogram rectangle. 

Horizontal width of histogram rectangle. 

Vertical width of histogram rectangle. 

Used as an index to the Histo<*). Specifies one of Nbins bins. 

Used as an index to the graphics arrays. Specifies one of nine plots. 


Ww 

Old 
New 
XI 
Y1 
X2 
Y2 
I 
G 

OPTION BASE 1 

COM /Graphl/ Wndw( *) , Vwprt (*) , Xdiv (*) , Ydiv (*) , XlabelS ( *) , Y labels (*) 

COM /Graph2/ Tit leS {*), XimageS {*), YimageS (*}, Legends <* ) 

COM /Color 1/ C lear , B1 ack , Red , Yel low, Green, Cyan, B1 ue, Magenta 
COM /Color2/ White , Olive, Aqua, Royal, Maroon, Brick, Brown, Gray 
INTEGER Histo <1000, 3) , Nplots, Nbins , FI , F2, Al, A2 
REAL Nnew, Nold, N ( 5) 

! Clear all of the histogram data within the LVDAS. 

OUTPUT 8Lvdas USING "AA"; N CA" 

! Draw new plots for the five histograms. 

FOR Channel-1 TO 5 

CALL Set_up (Channel, Symbols (*) ) 

NEXT Channel 

! Calculate the acquisition time. 0.1*10000000 will give an acquisition of 0.1 seconds. 
CALL Convert2words (.1*10000000, A1,A2) ! Atime=.l seconds 

I Enable the keyboard to terminate histogram plotting. 

ON KBD GOSUB Hdone 
REPEAT 

FOR Channel=l TO 5 
G=Channel 
SELECT Channel 
CASE 1,2 

Kw=1000000 
Mi n=Kw*Wndw (G, 1) 

Max=Kw*Wndw (G, 2) 

Bln=INT(LGT( (Max-Min) /100) /LGT (2) ) +1 
Ww=2*Bin 

CALL Convert2words (Min, FI, F2) 

CASE 4 

Kw = 327 68/5* 

Min=Kw*Wndw{G, 1) 

Max=Kw*Wndw (G, 2) 

Bin=INT(LGT{ (Max-Min) / 100} /LGT (2) > +1 
Ww=2 A Bin 

CALL Convert2words {Min, FI, F2) 

CASE ELSE 

GOTO 17350 
END SELECT 

! Tell the LVDAS to Take a Histogram. 

OUTPUT @Lvdas USING "AA, 6 <W) •; "TH" , FI, F2, Bin, Al , A2 , Channel 
! Enter number of bins in the histogram. 

ENTER @Lvdas USING W" ;Nbins 

! Redimension the Histo (*) and the enter the histogram data. 

IF Nbins>0 THEN 

REDIM Histo (Nbins, 3) 

ENTER QLvdas USING H #, W" ; Histo {* } 

END IF 

! Enter the number of samples for the previous and current histogram. 

ENTER QLvdas USING W"; Nnew, Nold 

! Scale part of the CRT for the histogram plotting. 


Channels 1,2,3 are for LDV frequency data. 
Converts Hz to MHz. 

Minimum frequency for left histogram scale. 
Maximum frequency for right histogram scale. 
2 A Bin is the window width of each vertical bar. 
Window width of each vertical histogram bar. 

Channels 4,5 are for analog voltage data. 
Converts raw data to volts. 

Minimum voltage for left histogram scale. 
Maximum voltage for right histogram scale. 

2 A Bin is the window width of each vertical bar. 
Window width of each vertical histogram bar. 
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1*7240 

17245 

17250 

17255 

17260 

17265 

17270 

17275 

17280 

17285 

17290 

17295 

17300 

17305 

17310 

17315 

17320 

17325 

17330 

17335 

17340 

17345 

17350 

17355 

17360 

17365 

17370 Hdone : 

17375 

17380 

17385 Pt_histo: 

17390 

17395 

17400 

17405 

17410 

17415 

17420 

17425 

17430 

17435 

17440 

17445 

17450 

17455 

17460 

17465 

17470 

17475 

17480 

17485 

17490 

17495 

17500 

17505 

17510 

17515 

17520 

17525 

17530 

17535 

17540 

17545 

17550 

17555 

17560 

17565 

17570 

17575 Hsort : 

17580 

17585 

17590 

17595 

17600 

17605 

17610 

17615 

17620 

17625 

17630 Hplot : 
17635 


If XKXmin then set Xl=Xmin 
If Xl>Xmax then set Xl=Xmax 


VIEWPORT Vwprt (G, 1 ) /10 . 23, Vwprt (G, 2) /10 .23 , Vwprt (G, 3 ) /10.23,Vwprt (G,4) /10.23 
WINDOW Kw*Wndw(G, 1) , Kw*Wndw(G, 2) ,Wndw(G, 3) ,Wndw(G, 4) 

Xpixel=Kw* (Wndw (Channel, 2) -Wndw (Channel, 1) ) / (Vwprt (Channel, 2 > -Vwprt (Channel, 1) 

N1 =N (Channel ) 

N2-N (Channel) -Nold+Nnew 
N (Channel ) =N (Channel ) -Nold+Nnew 

PEN 16*Aqua ! Select the pen for the histogram bars edge. 

AREA PEN 1 6*Aqua ! Select the pen for the histogram bars fill. 

FOR 1=1 TO Nbins 

Old-MIN (Hi st o < I, 3) ( Wndw (Channel, 4) ) 

New=MIN (Histo ( I, 2) , Wndw (Channel , 4 ) } 

Xl=Histo (I, 1) *Ww+Min ! Calculate histogram bar horizontal position. 

x2=Ww ! Calculate histogram bar horizontal width. 

Y1 =01d ! Calculate histogram bar vertical position. 

Y2=New-01d ! Calculate histogram bar vertical width. 

IF Xl<Kw*Wndw(G,l) THEN Xl=Kw*Wndw (G, 1) 

IF Xl>Kw*Wndw (G, 2) -X2 THEN Xl-Kw*Wndw (G, 2) -X2 
MOVE XI, Y1 

CONTROL CRT, 14 ; 6 ! Change to complimentary drawing mode. 

RECTANGLE X2-Xpixe 1 , Y2 , FILL, EDGE ! Draw the rectangle representing one bar of the bargraph. 
CONTROL CRT, 14; 3 ! Switch back to dominant drawing mode. 

NEXT I 

NEXT Channel 

UNTIL KbdS<>"« OR NOT Repeat ! Quit if any key on the keyboard has been pressed. 

SUBEXIT 

Done=l 

RETURN 

SUBEND 

SUB Pt_histo (Symbols (*), Run, Fi le, Pos, INTEGER Nsam) 

DeS yhis t subprogram plots post time histograms within five of the nine plots on the CRT screen. 

The histogram data are acquired from the LVDAS over a specified acquisition time. 

Variables Defined in Main Program: 

Wndw (*), Vwprt O.XdivC) ,Ydiv(*l , XlabelS (♦) .YlabelS (*) .Titles (*) , XlmageS (*) .YimageS (*), Legends ( > 
Ui (*> ,Vi (*) , Wi (*) , Ai (*} , Bi (*) 

Local Variables: 

Histo (*) Array of histogram bin heights indexed by bin number. 

Array of instantaneous U,V,W velocity or A, B voltage data. 

Number of samples acquired. 

Minimum value for histogram. Left side of histogram scale. 

Maximum value for histogram. right side of histogram scale. 

Window width of each vertical histogram bar. 

Used as an index to the above arrays. 

Used as an index to the Histo(*). Specifies one of 100 bins. 

Horizontal length of one picture on the CRT in scale units. 

Selects one of the 5 channels of Ui ( * ) , Vi ( * > , Wi (* ) , Ai ( * ) , Bi ( * ) data. 

Used as an index to the graphics arrays. Specifies one of nine plots. 


Data {*) 

Nsam 

Xmin 

Xmax 

Xwin 

K 

L 

Xpixel 

Channel 

G 


OPTION BASE 1 

COM /Data2/ REAL Ui ( 1000) , Vi ( 1000) , Wi ( 1000 ) ,Ai < 1000) , Bi (1000) , I i ( 1000) , Ci ( 1 000) 

COM /Graphl/ Wndw(M , Vwprt (*) ,Xdiv<*) , Ydiv ( * ) , Xlabel$ ( *> ,Ylabel$(*) 

COM /Graph2/ Tit leS (* ) , Ximage$ < * ) , YimageS ( * > , Legend$ ( * ) 

COM /Color 1/ Clear, Black, Red, Yellow, Green, Cyan, Blue, Magenta 
COM /Color2/ White, Olive, Aqua, Royal, Maroon, Brick, Brown, Gray 

INTEGER Histo (0:100) 

REAL Data ( 1000 ) 

REDIM Data (Nsam) 

FOR Channel-1 TO 5 _. . 

! Fill the data array with Ui (M , Vi <*) ,Wi (*) , Ai (*) , or Bi<*) depending on Channel. 

G=Channel 

IF Channel=l THEN MAT Data= Ui 
IF Channel *2 THEN MAT Data= Vi 
IF Channel-3 THEN MAT Data- Wi 
IF Channel=4 THEN MAT Data- Ai 
IF Channel=5 THEN MAT Data- Bi 
! Draw a new empty histogram plot. 

CALL Set_up (Channel, Symbols (*) ) 

Xmin=Wndw (Channel , 1) 

Xmax=Wndw (Channel , 2) 

Xwi n= (Xmax-Xmin) /100 
! Sort the data into a histogram. 

MAT Data- Data-(Xmin) 

MAT Data- Data/ ( (Xmax-Xmin) /100) 

MAT Histo- (0) 

FOR K=1 TO Nsam 

L-MAX (MIN (Data <K) , 100) ,0) 

Histo(L) -Histo (L) +1 
NEXT K 

! Scale part of the CRT for histogram plotting. 

VIEWPORT Vwprt (G, 1 > /10 . 23, Vwprt (G, 2) /10. 23, Vwprt (G,3) / 10. 23, Vwprt (G, 4) / 10.23 
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17640 

17645 

17650 

17655 

17660 

17665 

17670 

17675 

17680 

17685 

17690 

17695 

17700 

17705 

17710 

17715 

DONE 


WINDOW 0, 100, Wndw (G f 3) , Wndw (G, 4 ) 

Xpixel=(100-0) / (Vwprt {Channel, 2) -Vwprt (Channel , 1) ) 
! Draw the histogram. 

FOR K=0 TO 100 

IF Histo(K) THEN 
MOVE K- . 5 , 0 
AREA PEN 1 6*Gr een 
RECTANGLE 1-Xpixel , Histo { K) f FILL 
END IF 
NEXT K 


NEXT Channel 
SUBEXIT 

CSUB N Gdump colored (From_ds, To_ds, OPTIONAL Rotates, INTEGE1 A1 ^ rlt ^ > 
CSUB Bload {INTEGER A (*), Xp ixel s, Ypixels, OPTIONAL ™TEGER Ru e, ^ Ystart) 

CSUB Bstorel INTEGER A (*), Xpixels, Yplxe Is, OPTIONAL INTEGER Rule.R 


B-47 


APPENDIX C 


Data Reduction and 
Coordinate System 
Transformation Equations. 


APPENDIX C 



Data Reduction and Coordinate 
System Transformation Equations. 


SECTION 

TABLE OF CONTENTS 

Page 

1 . 

Introduction 

2 

2. 

List of Variables 

4 

3. 

Laser to Tunnel Coordinate System Transformation 

6 

4. 

Tunnel to Model Coordinate System Transformation 

10 

5. 

Data Reduction Equations 

13 

6. 

Coordinate System Transformation Equations 

18 

7. 

Proofs for Coordinate System Transformation Equations 

20 

8. 

Matrix Notation for Coordinate System Transformation Equations 

24 

FIGURE 

LIST OF FIGURES 

Page 

la. 

U Velocity Laser Beam Pair Orientation (Violet) 

6 

lb. 

V Velocity Laser Beam Pair Orientation (Green) 

7 

lc. 

W Velocity Laser Beam Pair Orientation (Blue) 

7 


C-l 


1. Introduction 


The purpose of this write-up is to describe the data reduction performed on the raw 
data acquired from the Laser Velocimeter Data Acquisition System. The digital Macrodyne 
data are converted from raw 16bit integer words into frequencies. The frequency results are 
in turn converted into particle velocities. The analog data are converted from raw two s 
complement 16bit integer words into voltages. Example types for the analog data might 
originate from such sources as temperature probes, laser fluorescence anemometers, hot wire 
anemometers, etc. 

Section 2 contains a list of variables that are used throughout this write-up. A brief 
description of each variable is provided along with the corresponding variable name that is 
used in the software program. (NOTE: This chapter has been written for three component 
LDV systems. The delivered system is a two component system. Therefore, the third 
component W of the three components U,V,W is not measured.) 

Velocities are measured in “Laser Coordinates” directly. That is, the measured velocity 
of each component is parallel to a vector which is orthogonal to the fringe planes in the probe 
volume. These vectors may or may not be parallel to the tunnel coordinate system. If they 
are not, then it is desirable to convert the velocities from “Laser Coordinates” to Tunnel 
Coordinates.” In other words, a coordinate system transformation needs to be applied to the 
measured velocities to obtain velocities in tunnel coordinates. Section 3 describes how this 
laser to tunnel coordinate system transformation is performed. (NOTE: The delivered 
system is a two component system whose laser beam pairs have been orientated orthogonally 
to the wind tunnel’s X,Y,Z axes. Therefore, velocities measured in “Laser Coordinates” will 
be equal to velocities transformed to “Tunnel Coordinates” . For this reason, the the Laser 
to “Tunnel” coordinate system transformations have not been included in the “3.5 ’HWT” data 
acquisition programs listed in Appendixes A & B.) 

In some cases it is preferred to perform an additional coordinate system transformation 
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to obtain velocities in “Model Coordinates.” For example, if the model is at an angle of 
attack, then the model’s coordinate system would be at rotation with respect to the tunnel’s 
coordinate system. Other model attitude angles in addition to the angle of attack, such as roll 
and yaw, can be used determine the transformation required to convert from tunnel to model 
coordinates. Section 4 describes how this tunnel to model coordinate system transformation 
is performed. 

Section 5 contains the equations that are used to calculate the average, standard 
deviation, as well as normal and shear stress terms for the velocity and voltage data. 
Equations are included for both the original and transformed to coordinate systems. Normal 
text is used in the equations for variables that represent the original coordinate system while 
italicized text is used for variables that represent the transformed to coordinate system. 

Section 6 contains the equations that are used to convert average, standard deviation, as 
well as normal and shear stress terms from the original to the transformed to coordinate 
system. 

Section 7 contains proofs demonstrating that we can perform the coordinate system 
transformations on the reduced averaged data without having to perform the transformation 
on the instantaneous values. This saves costly run time because there are typically thousands 
of instantan eous values that contribute one averaged value. 

Section 8 shows how the equations of section 6 can be represented in matrix notation. 
The matrix notation for the coordinate system transformation is an elegant way to show the 
multitude of complex equations in compact and concise format. 
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2. List of Variables 


The following is a list of variables that are used throughout this write-up. A brief 
description of each variable is provided along with the corresponding variable name that is 
used in the software program. Normal text style (not italicized) indicates the original 
coordinate system while italicized text style indicates a transformed to coordinate system. 


Original 

Transformed 

Description 

Variable 

Ui 

Ui 

Instantaneous U velocity. 

Ui (I) 

Vi 

Vi 

Instantaneous V velocity. 

Vi (I) 

Wi 

Wi 

Instantaneous W velocity. 

Wi (I) 

Ai 

Ai 

Instantaneous A voltage. 

Ai (I) 

Bi 

Bi 

Instantaneous B voltage. 

Bi (I) 

U 

U 

Average U velocity. 

U 

V 

V 

Average V velocity. 

V 

w 

w 

Average W velocity. 

w 

A 

A 

Average A voltage. 

A 

B 

B 

Average B voltage. 

B 

U* 

U' 

U velocity standard deviation. 

UI 

V’ 

V' 

V velocity standard deviation. 

VI 

w 

W' 

W velocity standard deviation. 

WI 

A' 

A' 

A voltage standard deviation. 

AI 

B' 

B’ 

B voltage standard deviation. 

BI 

A'A' 

A'A' 

A-A normal stress term. 

Alai 

B’B' 

B'B’ 

B-B normal stress term. 

Blbl 

A'B' 

A'B' 

A-B shear stress term. 

Albl 

U'A' 

U'A' 

U-A shear stress term. 

Ulal 

V ' A ' 

V'A ' 

V-A shear stress term. 

Vial 

W ' A ' 

W'A' 

W-A shear stress term. 

Wlal 
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Original Transformed 

Description 

Variable 

u 7 

U' 


U'U' 

U-U normal stress term. 

Ulul 

u 7 

V' 


U'V' 

U-V shear stress term. 

Ulvl 

u 7 

W' 


U'W' 

U-W shear stress term. 

Ulwl 

V 7 

U' 


V'U' 

V-U shear stress term. 

Vlul 

V 7 

V' 


V'V 

V-V normal stress term. 

Vlvl 

V 7 

W' 


V'W' 

V-W shear stress term. 

Vlwl 

w 1 

U' 


W'U’ 

W-U shear stress term. 

Wlul 

w 7 

V' 


W'V' 

W-V shear stress term. 

Wlvl 

w 7 

W’ 


W'W’ 

W-W normal stress term. 

Wlwl 



X 


Tunnel or Model X axis 

X 



Y 


Tunnel or Model Y axis 

Y 



z 


Tunnel or Model Z axis 

Z 



0ux 


Angle between Laser U and Tunnel X 

ThetaAU 



0UY 


Angle between Laser U and Tunnel Y 

ThetaAV 



0uz 


Angle between Laser U and Tunnel Y 

ThetaAW 



0VX 


Angle between Laser V and Tunnel X 

ThetaBU 



0 VY 


Angle between Laser V and Tunnel Y 

ThetaBV 



0vz 


Angle between Laser V and Tunnel Y 

ThetaBW 



0wx 


Angle between Laser W and Tunnel X 

ThetaCU 



0WY 


Angle between Laser W and Tunnel Y 

ThetaCV 



0WZ 


Angle between Laser W and Tunnel Y 

ThetaCW 



a! 


Model angle of attack 

Alpha (1) 



0.2 


Model angle of roll 

Alpha (2) 



a 3 


Model angle of yaw 

Alpha (3) 



J3X3 


Coordinate system transformation matrix 

— 



K3X3 


Coordinate system transformation matrix 

— 



K9X9 


Coordinate system transformation matrix 

— 
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3. Laser to Tunnel Coordinate System Transformation 


Velocities are measured in “Laser Coordinates” directly. That is, the measured velocity 
of each component is parallel to a vector which is orthogonal to the fringe planes in the probe 
volume. These vectors may or may not be parallel to the tunnel coordinate system. If they 
are not, then it is desirable to convert the velocities from “Laser Coordinates to Tunnel 
Coordinates.” In other words, a coordinate system transformation needs to be applied to the 
measured velocities to obtain velocities in tunnel coordinates. This section describes how this 
laser to tunnel coordinate system transformation is performed. 

Tunnel Coordinate have the axes label as X,Y,Z while velocities measured in laser 
coordinates typically named U,V,W. The direction of each of the measured velocities in laser 
coordinates can be defined in terms of the angle it is off of the tunnel coordinate axes. The 
three angles 0 UX , 0 UY , 0 UZ define the angular relationship between measured U velocities in 
laser coordinates and the axes X,Y,Z of the tunnel coordinate system (Fig. 1 a). 

0UX= 0.00° 

0UY= 90.00° 

0UZ= 90.00° 
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The three angles 0 VX , 0 VY , 0 VZ define the angular relationship between measured V velocities 
in laser coordinates and the axes X,Y,Z of the tunnel coordinate system (Fig. lb) 



The three angles 0 WX , 0 WY , 0 WZ define the angular relationship between measured W velocities 
in laser coordinates and the axes X,Y,Z of the tunnel coordinate system (Fig. lc) 

0WX= 90.00° 

0wy= 90.00° 

0 wz= 0 . 00 ° 



When a particle travels through the probe volume, its velocity is measured as U,V,W in 
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laser coordinates. However, it is desired to have these velocities (U,V,W) transformed to 

tunnel coordinate velocities (U,V,W). Each of tunnel coordinate velocities U,V,W would be 

parallel to its X,Y,Z tunnel axis. The laser coordinate velocities U,V,W can be defined in 

terms of the tunnel coordinate velocities using the follow equations: 

U = U COS(0 UX ) + V COS(0 UY ) + WCOS(0 UZ ) 

v = U COS(0vx) + v COS(0vy) + W COS(0vz) 

W = C7COS(0„ X ) + V COS(0 WY ) + W COS(0„ Z ) 

The coefficients of the of the three equations above can be used to define the coordinate 

transformation matrix J 3 x 3 as shown below: 

Jii — COS(0ux) Ji 2 =COS(0 uy ) J 13 — COS(0u Z ) 

J 2 i=COS(0 vx ) J 22 =COS(0 VY ) J 23 =COS(0vz) 

J 3 i=COS(0 wx ) J 32 =COS(0 wy ) J 33 =COS(0„ z ) 

Jn J12 J13 COS(0 UX ) COS(0 UY ) COS(0 uz ) 

J 3X3 = J 2 1 J22 J23 = COS(0 VX ) COS(0 vy ) COS(0 vz ) 

J31 J 32 J 33 J [ COS(0„x) COS{0 WY ) COS(0 wz ) 

The coordinate transformation matrix J 3 x 3 can be used to convert tunnel coordinate 
velocities to laser coordinate velocities. 

Jll J 12 Jl3 [7 

^21 0^22 J 2 3 ^ V 

J 3 I ^32 ^33 W 

U = J n C7 + J 12 V + J 13 W 

V = J 21 u + J 22 v + J 23 W 

W = J 31 U + J 32 V + J 33 W 
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However, we need to perform just the opposite coordinate transformation. The coordinate 
transformation matrix K 3 X 3 is defined as inverse of transformation matrix J3X3. 




The coordinate transformation matrix K 3X3 can be used to convert laser coordinate velocities 

to tunnel coordinate velocities. 

U Kn K12 K 13 U 

V K21 K22 K23 ^ V 

W K31 K32 K 33 w 


U = K n U + K 12 V + K :3 W 

V = K21U + k 22 v + k 23 w 

w = k 31 u + k 32 v + K33W 
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4. Tunnel to Model Coordinate System Transformation 


In some cases it is preferred to perform an additional coordinate system transformation 
to obtain velocities in “Model Coordinates.” For example, if the model is at an angle of 
attack, then the model’s coordinate system would be at rotation with respect to the tunnel’s 
coordinate system. Other model attitude angles in addition to the angle of attack, such as roll 
and yaw, can be used determine the transformation required to convert from tunnel to model 
coordinates. This section describes how this tunnel to model coordinate system 
transformation is performed. 

The angle of attack, roll, and yaw angles are defined as follows: 
a, angle of attack 

o 2 angle of roll 

a 3 angle of yaw 

Velocities that are calculated in tunnel coordinates U,V,W can be transformed to model 
coordinate velocities (U ,V,W). Each of the tunnel coordinate velocities U,V,W are parallel to 
the tunnel’s X,Y,Z axes. Each of them can be transformed to model coordinates where each 
of the model coordinate velocities U,V,W would be parallel to the model’s X,Y,Z axes. 

If the model were at angle of attack (oti*0), then the tunnel coordinate velocities can be 
defined in terms of the model coordinate velocities using the follow equations: 


u = 

+ COS(CXi) u 

+ 0 V 

+ siNfaJw 

V = 

+ 0 u 

+ 1 V 

+ OH 

w = 

- siN(ai) u 

+ 0 V 

+ cosfai) w 


If the model were at angle of roll (<*2*0), then the tunnel coordinate velocities can be defined 
in terms of the model coordinate velocities using the follow equations: 


u = 

+ 1 u 

+ 0 V 

+ OH 

v = 

+ 0 u 

+ cos(a 2 ) v 

- siN(a 2 )w 

w = 

+ 0 u 

+ siN(a 2 )v 

+ cos(a 2 )w 


If the model were at angle of yaw (<*3*0), then the tunnel coordinate velocities can be defined 
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in terms of the model coordinate velocities using the follow equations: 

u = + cos(a 3 ) u - siN(a 3 )^ + w 

v = + siN(a 3 ) u + cos(a 3 ) v + ow 

W = + U + 0 V + N 

The model to mnnel coordinate system transformation matrices for each of the three sets of 

equations are defined as follows: 

+COS(OC!) 0 +SIN(<Xi) 

Jcu = 0 1 O' 

-sin(cxi) o +cos(a!) 

10 o 

= o +cos(a 2 ) -siN(a 2 ) 
o +siN(a 2 ) +cos(a 2 ) 

+cos(a 3 ) -siN(a 3 ) o 

J a3 = +siN(a 3 ) +cos(a 3 ) o 

o 0 1 

If the angles of attack, roll, and yaw are used in combination, then an equivalent model to 
tunnel coordinate system transformation matrix can be obtained by computing the cross 
products of the three individual transformations. 

J3X3 — J<X 3 ^ J<X 2 ^ Jal 

Jn J12 Jl 3 
J3X3 J21 J22 J23 

J31 J32 J33 

+cos(a 3 ) -siN(a 3 ) 0 1 0 0 +cos(a 1 ) 0 -nsi^a,) 

J 3X3 = +siN(a 3 ) +cos(a 3 ) 0 x 0 +cos(a 2 ) -siN(a 2 ) x oio 

0 oio +siN(a 2 ) +cos(a 2 ) -sn^ai) o +cos(a!) 
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The coordinate transformation matrix J 3x3 can be used to convert model coordinate 
velocities to tunnel coordinate velocities. 


Jll J12 Jl 3 U 

J21 J22 J23 x \ v 

J31 J32 J33 w 

U = J n£7 + J 12 v + J 13 W 

V = J 21 C 7 + J 22 V + J 23 W 

W = J 31 C7 + J 32 V + J 33 W 

However, we need to perform just the opposite coordinate transformation. The coordinate 
transformation matrix K 3x3 is defined as inverse of transformation matrix 3x3. 

i " 1 r 

Jll Jl2 Jl 3 Kn K12 K13 

J21 J22 J23 ~ K 21 K 2 2 K 23 

J3I J32 J33 K31 K32 K33 

The coordinate transformation matrix K 3X3 can be used to convert tunnel coordinate 
velocities to model coordinate velocities. 

u Kn K 12 K 13 [ u 

V = K 21 k 22 K 23 X v 

w J k 31 k 32 k 33 J [w 

U = K„U + K 12 V + K 13 W 

V = k 21 u + k 22 v + k 23 w 

w = k 31 u + k 32 v + k 33 w . 
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5. Data Reduction Equations 


This section contains the equations that are used to calculate the average, standard 
deviation as well as normal and shear stress terms for the velocity and voltage data. 
Equations are included for both the original and transformed to coordinate systems. Normal 
text is used in the equations for variables that represent the original coordinate system while 
italicized text is used for variables that represent the transformed to coordinate system. 

The following equations are used to calculate the velocity and voltage averages. 


N 

i = l 

N 

v = 

N 

i=l 

N 

w = 

N 

I w i 

i=l 

N 

A = 

N 

i = l 

N 

B = 

•H 

N 

i = 1 

V = 

N 

Iv, 

i=l 

w = 

N 

5>i 

i=l 

A = 

N 

i*l 

B = 

N 

I Si 

i=l 


The following equations are used to calculate their standard deviations: 

U' = 


V' 


w 


A' 


B' 
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The following equations are used to calculate the normal and shear stress terms for all 
of the relevant velocity: velocity, velocity: voltage, and voltage: voltage combinations: 


N 

Z(Ui-U)(Ui-U) 

N 

X U i U i 


N 

X^ 2 

IV iv - 1=1 — 

i=l 

-UU = 

1=1 -n 2 




N 

N 


N 

N 

N 



£(Ui-U)(Vi-V) 

X UiVi 



U ' V ' - 1=1 

i = 1 

-U V 


N 

N 



N 

N 



X(Ui-u)(Wi-w) 

X u i w i 



U'W' - i=1 

i=l 

-U W 


N 

N 



N 

N 



£(Vi-v)(Ui-u) 

XViUi 



V'U' - 1=1 

i*l 

-VO 


N 

N 



N 

N 


N 

X(Vi-v)(Vi-v) 

X v i v i 


Iv, 2 

V’V 1 - - 

i-1 

- V V = 

i = 1 -V 2 




N 

N 


N 

N 

N 



X(v i -v)(w i -w) 

XViW, 



V'W' - 1=1 

i-1 

-V w 


N 

N 



N 

N 




XWiUi 



W'U' - i=1 

i=l 

-wo 


N 

N 



N 

N 



Z(Wi-w)(Vi-v) 

XWiVi 



s 

< 

II 

H- 

II 

II 

i*l 

-W V 


N 

N 



N 

N 


N 

XlWi-wHWi-w) 

X W iWi 


X" 2 

W'W f - i=1 - 

i-1 

-ww = 

i=1 — w 2 

N 

N 

N 
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U'U 
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A' A' 

N 

^(Ai-AjiAi-A) 

_ i-1 

N 

lA iAi 

i=l 

-A A = 

N 

X Ai 

i = l 7 v 2 


N 

N 

-A 

N 

B ' B 1 

N 

Z(Bi-B)(Bi-B) 

_ i-1 

N 

X B iBi 

i = l 

-BB = 

N 

2*1 

i -1 r> 2 

N 

N 

- B 

N 

A' B ' 

N 

X(Ai-A)(Bi-B) 

_ i=l 

N 

X AiBi 

i = l 

- A B 


N 

N 


U ' A ' 

N 

X(Ui-U)(Ai-A) 

N 

X UiAi 

i*l 

-U A 


N 

N 


V ' A ' 

Z(Vi-V)(Ai-A) 

_ i= 1 

N 

XViAi 

i=l 

-V A 


N 

N 


W’A’ 

N 

S(Wi-w)(Ai-A) 

— i= 1 

N 

X WiAi 

i-1 

-W A 


N 

N 
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- A A 


A' A' 


B'B' 


A 'B ' 


U'A ' 


V'A' 


W'A' 




1=1 _ 

N 

i=l 

N 

N 

Xte-BMBi-B) 

i=l 

N 

X B ± B i 

i=l 

N 

N 

N 

XfA.-AUB,-!) 

i = 1 _ 

N 

X A i B i 

i =1 

N 

N 

N 

XfC/i-CfHAi-A) 

i=l _ 

N 

X ^iAi 

i=l 

N 

N 

X tVi~V) (Ai“A) 

i=l 

N 

X^ A i 

i=l 

N 

N 

N 

X(^i-W r )(A i -A) 

i=l _ 

N 

X w i A i 

N 

N 


-BB 


-AB 


-U A 


-V A 


-W A 


X A/ 


i = l 

N 


-A 2 


1b; 

i = l 

N 


-B 2 
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6. Coordinate System Transformation Equations 


The following equations are used to convert the instantaneous as well as the average 
velocities from the original to the transformed to coordinate system. The instantaneous and 
average values for the voltage data are the same in either coordinate systems: 


Ui 

= K n Ui 

+ 

Ki 2 Vi 

+ 

Ki 3 Wi 

U = K n U 


K 32 V 

+ 

K i3 W 

Vi 

= K 21 Ui 

+ 

K 22 Vi 

+ 

K 23 Wi 

v = k 21 u 


k 22 v 


k 23 w 

Wi 

= K 31 Ui 

+ 

K 3 2Vi 

+ 

K 33 Wi 

w = k 31 u 


k 32 v 

+ 

k 33 w 


A = A 



The following equations are used to convert the velocity. 'voltage and voltage: voltage 
normal and shear stress terms from the original to the transformed to coordinate system. 
The voltage:voltage normal and shear stress terms are the same in either coordinate systems: 


U'A ' = KnU'A' 

+ 

K 12 V' 

A' 

+ 

K 13 W'A' 

V'A' = K 21 U'A' 

+ 

K 22 V’ 

A' 

+ 

K 23 W'A' 

WA' = K 31 U'A' 

+ 

K32V 7 

A' 

+ 

K 33 WA' 


A 'A' = A' A' 


B'B' = B'B' 


A'B' = A'B' 
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The following equations are used to convert the velocity:velocity normal and shear 


stress terms from the original to the transformed to coordinate system: 


U'U' 

- 

K n K n U' 

U' 

+ 

KnK 12 U’ 

V’ 

4 - 

KuK 13 U'W' 


4 - 

K 12 K n V' 

U' 

+ 

K 12 K 12 V' 

V' 

+ 

Ki 2 K 13 V ' W ' 


+ 

KijKuW 

u* 

+ 

K 13 K 12 W' 

V' 

+ 

K13K13WW 1 

U'V' 

= 

KnK 21 U' 

U' 

+ 

K n K 22 U' 

V' 

4 - 

KiiK 23 U , W' 


+ 

Ki 2 K 21 V' 

U' 

+ 

K 12 K 22 V' 

V' 

+ 

K12K23VW 


+ 

Ki 3 K 21 W 

U' 

+ 

K13K22W' 

V' 

4 - 

K^K^W'W' 

U'W’ 

= 

K11K31U' 

U' 

+ 

K11K32U 1 

V' 

4 - 

K11K33U ' W ' 


+ 

Ki 2 K 3 iV 

U' 

+ 

K12K32V 

V' 

4 - 

K12K33VW 


+ 

K13K31W' 

U’ 

+ 

K13K32W' 

V' 

4 - 

K13K33WW 

V’U' 

=r 

K 2 iK n U' 

U' 

+ 

K 21 K 12 U' 

V' 

+ 

K 21 K 1 3U’W' 


+ 

K 22 K n V' 

U' 

+ 

K 22 K 12 V' 

V' 

4 - 

K22K13VW 


+ 

K 23 KuW' 

U' 

4 * 

k 23 k 12 w 

V' 

+ 

K23K13WW 

V’V' 

= 

K 21 K 21 U' 

U' 

+ 

K 2 iK 22 U’ 

V' 

4 - 

K 2 iK 23 U ' W ' 


+ 

K 22 K 21 V' 

U' 

+ 

K 22 K 22 V’ 

V' 

4 - 

K 22 K 2 3V , W' 


+ 

k 23 k 21 w 

U' 

+ 

k 23 k 22 w 

V' 

4 - 

K 23 K 23 W 1 W 1 

V'W’ 

= 

K21K 31 \y 

U' 

+ 

K21K32U 7 

V' 

4 - 

K 21 K 33 U'W 


+ 

K22K31V 

U' 

+ 

K 22 K 32 V' 

V' 

4 “ 

K22K33VW 


+ 

K23K31W 

U' 

4 - 

K23K32W 

V' 

+ 

K23K33WW 

W'U' 

= 

KaiKuU 7 

U' 

+ 

K 3 iK 12 U t 

V' 

4 * 

K 3 iK 13 U'W 


+ 

KajKuV' 

U' 

4 - 

K 32 K 12 V’ 

V' 

+ 

K3 2 K 13 V'W' 


+ 

K33K11W 

U' 

+ 

K 33 K 12 W' 

V' 

+ 

K 3 3K 13 W'W' 

W'V' 

= 

K 3 iK 2 itJ T 

U' 

+ 

K u K 22 ir 

V' 

4 “ 

K 3 iK 23 U 1 W ' 


+ 

K 32 K 21 V' 

u* 

+ 

K32K22V 

V' 

+ 

^ 32 K 23 V * W ' 


+ 

k 3 3K 21 w* 

U' 

+ 

K33K22W 

V' 

+ 

K33K23WW 

W’W 

= 

K 3 iK 31 U t 

U' 

+ 

K 31 K 32 U 7 

V' 

4 - 

K31K33U 1 W' 


+ 

K32K31V 

U' 

+ 

K32K32V 

V 

4 - 

K32K33VW 


+ 

K33K31W 

U' 

+ 

K33K32W 

V' 

4 - 

K33K33WW 


C-19 



7. Proofs for Coordinate System Transformation Equations 


This section contains proofs demonstrating that we can perform the coordinate system 
transformations on the reduced averaged data without having to perform the transformation 
on the instantaneous values. This saves costly run time because there are typically thousands 
of instantaneous values that contribute one averaged value. 

The following equations show how the average velocities from the original coordinate 
system can be used along with the coordinate transformation matrix to provide velocities in 
the new transformed to coordinate system: 


u = i=i — 

N 


Ui = K„Ui + K 12 Vi + K 13 Wi 


X (KnUi+K^Vi+K^Wi) 

U = i=i 

N 


N N N 

XK n Ui XK 12 Vi XK 13 Wi 

U = — + — + 

N N N 


N N N 

lUi £v i XWi 


U = K U U + K 12 V + K 13 W 


With similar proofs we can show that the following equations apply: 

v = k 21 u + k 22 v + k 23 w 


w = k 31 u + k 32 v + k 33 w 
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The following equations show how the velocity:velocity normal and shear stress terms 
from the original coordinate system can be used along with the coordinate transformation 
matrix to provide velocity:velocity normal stress terms in the new transformed to coordinate 
system: 

X(tfi-£7)(C7i-C7) £ UiUi 

U'U' = — = — -u u 

N N 

Ui = K n Ui + K 12 Vi + K 13 Wi U = K n U + K 12 V + K 13 W 

N 

X (KuUi+K^Vi+KnWi) (KnUi+Kj.Vi+Ki.Wi) 

U'U' = — (K u U+Ki 2 V+K 13 W)(K n U+K 12 V+K 13 w) 


U'U' 


^ I K 11 K 11 U i Ui+KxxKi 2 U i V i +K 11 K 13 U i W i \ 
> +K 12 K 1: V i U i +K 12 K 12 V i V i +K 12 K 13 V i W i 
~ ' + K 13 K 11 W i U i +K 13 K 12 W i V i +K 13 K 13 W i W i / 

N 


/ K u K n U U+K n K 12 U V+K n K 13 U W 1 

+k 12 k u vu+k 12 k 12 vv+k i 2 K 13 V W I 

\+Ki 3 K n W U+K 13 K 12 W V+K 13 K 13 W W/ 




U'U' = KnKnU'U' + KnK^U’V’ + K U K 13 U'W' 
+ K 12 KnV ' U ' + K 12 K 12 V ' V 1 + Ki 2 Ki 3 V'W' 
+ K 13 K n W ' U ' + K 13 K 12 W'V + 
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The following equations show how the velocityrvelocity normal and shear stress terms 

from the original coordinate system can be used along with the coordinate transformation 

matrix to provide velocityrvelocity shear stress terms in the new transformed to coordinate 
system: 


U'V' 


N 


i=l 

N 



-UV 


u i ~ K u Ui + K 12 Vi + K 13 Wi u z 

Vi = K n Ui + K 22 Vi + K 23 Wi v s 

N 

— _ X ( K n u i + Ki 2 Vi+Ki 3 W i )(K 2 iUi+K 22 Vi+K 23 W 1 ) 

N 


KnU + K 32 V + K 13 W 
K 2 iU + K 22 V + K 23 W 

- (k u u+k 12 v+k 13 w) (k 21 u+k 22 v+k 23 w) 


U'V = 


Z i K 11 K 21 U i U i +K n K 2 2U i V i +K 11 K 23 U i W i 1 
+K 12 K 21 V i U i +K 12 K 22 V i V i +Ki 2 K 23 V i W i 
w ' +K i3 K 2iW i U i +K 13 K 22 W i V i +K 13 K 23 W i W i / 

N 


U’V ' = K n K 21 [ X U i°i 


+ k I2 k 21 


+ k 13 k 21 


N 

'v 

i = l 


- uu 


^ / N 

Xu iVi 


+ KnK 


11^22 


i=l 


v N 

/ N 

S WiUi 
i*l 


^12^22 I * 

V u I 1=1 


v N 

N 

X ViVi 


N 


/ n 


' N 


+ K 13 K 22 

wu' 


E WiVi 


i=l 


' N 


U’V’ = K n K 21 U 1 U 1 + K u K 22 U 7 V' 
+ K 12 K 21 V'U' + K 12 K 22 V'V‘ 
+ K 13 K 21 W'U' + K 13 K 22 W'V' 


+ K n K 23 U'W' 

+ k 12 k 23 v 7 ¥ t 
+ k 13 k 23 w ' W ' 


1 K n K 21 UU+K u K 22 U V+K n K 23 U5fl 
+Ki 2 K 23 V u+k 12 k 22 v v+k 12 k 23 v w I 
\+Ki 3 K 21 W u+k 13 k 22 w v+k 13 k 23 w w / 


UV 


+ K n K 23 |X U i W i 


N 


vv r KizK23 




i=l 


N 


W V 


+ K,iK 


13^23 


E WiWi 


i=l 


N 


U W J 

\ 


VW J 
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The following equations show how the velocity:voltage shear stress terms from the 
original coordinate system can be used along with the coordinate transformation matrix to 
provide velocity .voltage shear stress terms in the new transformed to coordinate system: 

U'A' = -i=i = i=i UA 

N N 

U i = R nUi + K 12 Vi + K n Wi u = K n U + K 12 V + K 13 W 

Ai = Ai A = A 


-UA 


X (K u Ui+Ki 2 V i +K 13 W i )(A i ) 


U ' A ' ~ — (k u u+k 12 v+k 13 w)(a) 


U'A' = — 


X (KnU i A i +K 12 V 1 A i +K 13 W i A i ) 


- (k„u a+k 12 va+k 13 w a) 


U'A ‘ = Ki 


- UA 


^ UiAi + K, , I X V i A i 


V N / \ N 

TFa 7 = KnU'A' + K 12 V ' A ' + K 13 W'A' 


-- + K 13 

- V A 


/ N 


I 

WiAi 

i-1 


' N 


- WA 
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8. Matrix Notation for Coordinate System TVansformation 


Equations 


This section shows how the equations of section 1.6 can be represented in matrix 
notation. The matrix notation for the coordinate system transformation is an elegant way to 
show the multitude of complex equations in compact and concise format. The rest of this 
page contains various matrix definitions: 



tr 

•*9X9 


KiiK u K n K 12 
KnK 21 K u K 22 
KiiK 31 K u K 32 
^2iKjj K 21 K 12 
K 2 iK 21 K 2: K 22 
K 2 iK 31 K 21 K 32 
K 3 iK n K 31 K 12 
K 3 iK 21 K 31 K 22 
K 3 iK 31 K 31 K 32 


K u K 13 K 12 K u K 12 K 12 K 12 K 13 K 13 K n K 13 K 12 K 13 K 13 

KhK 23 k 12 k 21 k 12 k 22 k 12 k 23 k 13 k 21 k 13 k 22 k 13 k 23 

KhK 33 k 12 k 31 k 12 k 32 k 12 k 33 k 13 k 31 k 13 k 32 k 13 k 33 

K 2iK 13 k 22 k u k 22 k 12 k 22 k 13 k 23 k u k 23 k 12 k 23 k 13 

k 21 k 23 k 22 k 21 k 22 k 22 k 22 k 23 k 23 k 21 k 23 k 22 k 23 k 23 

k 2 iK 33 k 22 k 31 k 22 k 32 k 22 k 33 k 23 k 31 k 23 k 32 k 23 k 33 

K 3 iK 13 K 32 K n K 32 K :2 K 32 K 13 K 33 K u K 33 K 12 K 33 K 13 

k 33 k 23 k 32 k 21 k 32 k 22 k 32 k 23 k 33 k 21 k 33 k 22 k 33 k 23 

K 3a K 33 K 32 K 3: K 32 K 32 K 32 K 33 K 33 K 31 K 33 K 32 K 33 K 33 
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This page consolidates all of the coordinate transformation 


equations in matrix notation. 




s = 

k 3X3 

X R 

u 


Kn 

Kij 

Kl3 

V 

— 

K21 

k 22 

k 23 

w 


K31 

k 32 

K 33 


u 

V 

w 


Si - K„, x 


Ui 


Kn k 12 k 13 


Ui 

Vi 

— 

^21 K 2 2 K 2 3 

X 

Vi 



k 31 k 32 k 33 


Wi 


H - K„3 x F 


U'A ' 


Kn 

Ki 2 

Kl 3 


U’A' 

V'A' 

— 

K 21 

K 22 

k 23 

X 

V'A' 

W’A ' 


K 31 

K 3 2 

K 33 


W'A' 


I K 3 „ x G 


U'B ' 



k 12 

K13 


U'B' 

V'B' 

— 

k 21 

k 22 

k 23 

X 

V'B' 

W'B' 


K 31 

K32 

K33 


W'B ' 


cr v 
WV' 

ww 

VU’ 
V V 

/r 
WTF 
W v' 
w* tp 


Q = K,„ x p 


K 11 K 11 

KiiKi 2 

KnKi 3 

KuKzi 

KuK 22 

KuK 23 

k u k 31 

K n K 32 

K 11 K 33 

K 2 iK u 

K 2 iK 12 

K 2 i K 13 

k 21 k 21 

k 21 k 22 

K 2 i K 23 

K 21 K 31 

K 2 lK 32 

K 2 iK 33 

KsiKu 

K 3 i K 12 

K 3 iK 13 

K 3 iK 21 

K 3 i K 22 

K 3 iK 23 

K 3 iK 31 

k 31 k 32 

K 3 iK 33 


Ki 2 Kn 

Ki 2 Ki 2 

Ki 2 Ki 3 

Ki 2 K 2 i 

Ki 2 K 22 

Ki 2 K 23 

Ki 2 K 31 

k 12 k 32 

Ki 2 K 33 

k 22 k u 

k 22 k 12 

k 22 k 13 

k 22 k 21 

k 22 k 22 

k 22 k 23 

k 22 k 31 

k 22 k 32 

k 22 k 33 

k 32 k u ' 

k 32 k 12 

k 32 k 13 

k 32 k 21 

k 32 k 22 

k 32 k 23 

K 32 K 31 

K 32 K 32 

k 32 k 33 


^13Kll K13K12 K13K13 

K13K2I K13K22 K13K23 

^13^31 K13K32 K13K33 

^ 23^11 K 23 K 12 K 23 K 13 
K 2 3 K 2 i K 23 K 22 K 2 3K 2 3 
K23K31 K23K3 2 K23K33 

^33^11 ^33^12 K33K13 

^•33^21 K33K 22 K33K 2 3 

K 33 K 31 K 33 K 32 K33K33 


X 


u 

'U 1 

u 

ryr 

u 

r^r 

V’ 

r U' 

V' 

V’ 

v 7 

w 1 

w* 

u 1 

w 7 

V' 

w 1 

w* 


C-25 



